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of  the  wing  and  wake.  This  lifting  surface  theory  program  Is  based 
on  the  kernel  function  formulation.  In  that  the  vorticity  distribution 
Is  described  by  continuous  functions  with  unknown  coefficients.  The 
vortex  location  Is  similarly  described  by  functions  with  unknown  co- 
efficients. These  unknowns  are  found  by  satisfying  the  downwash  con- 
dition and  the  no-force  condition  on  the  leading-edge  vortex  represen- 
tation. Due  to  the  nonlinear  nautre  of  the  boundary  conditions  with 
respect  to  the  vortex  position,  the  solution  Is  obtained  from  an 
Iterative  scheme  based  on  Newton's  method.  Results  for  the  delta  wing 
and  arrow  wing  are  presented  and  compared  with  experiment  and  other 
theories. ^"These  results  Indicate  that  reasonable  predictions  can  be 
obtained  although  the  computational  effort  Is  considerable.  Finally, 
areas  of  future  Investigations  suggested  by  the  present  work  are  given. 


SUMMARY 


This  report  describes  a nonlinear  lifting  surface  theory  for  a 
wing  with  leading-edge  vortices  in  a steady,  incompressible  flow.  A 
numerical  scheme  has  been  developed  from  this  theory  and  initial  runs 
have  been  made  for  the  delta  wing  and  arrow  wing  planforms.  A general 
procedure  for  other  planforms  is  also  described.  The  present  formula- 
tion is  the  result  of  an  extensive  modification  of  the  work  of  Nangia 
and  Hancock,  in  which  a model  of  the  leading-edge  vortex  is  added  to 
a vorticity  representation  of  the  wing  and  wake.  This  lifting  surface 
theory  program  is  based  on  the  kernel  function  formulation,  in  that 
the  vorticity  distribution  is  described  by  continuous  functions  with 
unknown  coefficients.  The  vortex  location  is  similarly  described  by 
functions  with  unknown  coefficients.  These  unknowns  are  found  by 
satisfying  the  downwash  condition  and  the  no-force  condition  on  the 
leading-edge  vortex  representation.  Due  to  the  nonlinear  nature  of 
the  boundary  conditions  with  respect  to  the  vortex  position,  the  solu- 
tion is  Obtained  from  an  iterative  scheme  based  on  Newton's  method. 
Results  for  the  delta  wing  and  arrow  wing  are  presented  and  compared 
with  experiment  and  other  theories.  These  results  indicate  that 
reasonable  predictions  can  be  obtained  although  the  ccmputational 
effort  is  considerable.  Finally,  areas  of  future  investigations 
suggested  by  the  present  work  are  given. 
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1.  Introduction 


Supersonic  aircraft  generally  employ  highly  swept  wings  with  thin 
leading  edges  in  an  effort  to  reduce  drag  in  their  operational  environment. 
This  wing  design  results  in  leading-edge  separation  at  even  low  angles  of 
attack,  typically  about  5°. 

Although  theoretical  predictions  are  generally  excellent  for  unsepar- 
ated flow  outside  the  transonic  range,  the  vortex-wing  interaction  problem 
has  been  successfully  attacked  only  recently  for  general  planforms.  The 
difficulty  introduced  by  the  separation  is  two-fold.  First,  the  location 
of  the  separated  vorticity  in  a theoretical  model  is  not  known  a priori. 
Secondly,  due  to  the  large  spanwise  velocities  induced  by  the  presence  of 
the  vortex  on  the  wing,  the  pressure  calculations  must  include  non-linear 
terms  as  well  as  the  classical  linear  contribution.  Due  to  the  non-linear 
nature  of  the  boundary  condition  which  Is  needed  to  determine  the  location 
of  the  separated  vorticity,  an  iterative  procedure  must  be  used  to  determine 
the  flow  field.  Details  of  early  efforts  to  describe,  measure,  and 

predict  the  effects  of  flow  separation  are  chronicled  in  Matoi  (1975)\ 

2 

Smith  (1975)  , and  elsewhere. 

The  leading-edge  separation  phenomena  has  been  documented  for  many 
planforms,  but  the  delta  wing  has  received  the  greatest  share  of  attention, 
due  to  its  inherent  simplicity.  A description  of  the  flow  about  a delta 
wing  was  given  by  Ornberg  (1954)  , and  one  of  his  illustrations  is  presented 
in  Figure  1,  where  the  separated  vortex  sheet  is  seen  to  feed  a primary 
vortex  core,  which  then  induces  a secondary  separation  from  the  upper  surface 
of  the  wing. 
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Figure  1.  Schematic  sketches  showing  flow  on  suction  side  of 
70°  flat  plate  delta  wing  a't  u=15°  [after  Ornberg  ( 1954 ) ) . 


Ttiis  secondary  vortex  results  from  the  separation  of  the  viscous  boundary 
layer  on  the  wing,  when  it  encounters  the  adverse  pressure  gradient  present 
O'"  tne  upper  surface.  Since  this  line  of  separation  can  only  be  located  by 
a rscous  analysis,  this  additional  complexity  has  been  ignored  in  the 
*ol lowing  model s. 

An  early  effort  to  theoretically  predict  this  flow  field  was  made  by 

4 

Brown  and  Michael  (1955)  . They  considered  a conical,  flat-plate  delta  wing 
at  moderate  angles  of  attack  under  the  additional  restriction  of  slender- 
body  theory.  They  modeled  the  vertex  core  by  a line  vortex  whose  strength 
increased  linearly  along  its  axis.  The  vortex  was  fed  by  a cut,  i.e.,  a 
feeding  sheet  from  the  leading  edge  which  was  restricted  to  the  cross-flow 
plane.  This  model  of  the  vortex  sheet  will  be  referred  to  as  a vortex-cut 
model  , 

Smith  (1966)^  refined  the  Brown  and  Michael  model  to  include  a repre- 
sentation of  the  actual  force-free  vortex  sheet  as  well  as  the  vortex  core. 

In  Figure  2 (top)  the  vortex- sheet  and  vortex-core  location  are  presented  in 
the  cross-flow  plane  for  various  extents  of  the  vortex  sheet,  a designates 
the  angel  of  attack  and  X is  the  leading-edge  sweep  angle.  The  extent  of 
tiie  sheet  obviously  increases  as  one  increases  the  fraction  (F)  of  the  total 
shed  vorticity  which  is  included  in  the  sheet.  These  results  were  obtained 
by  running  an  amended  version  of  the  program  provided  by  Pullin  (1973)^. 

Pull  in  used  a representation  of  the  leading-edge  vortex  sheet  similar  to  the 
one  employed  by  Smith,  but  developed  a more  systematic  iteration  procedure 
for  finding  the  stable  configuration  of  the  shed  vorticity.  The  case  of  no 
sheet  (F  = 0)  corresponds  to  the  Brown  and  Michael  model.  Increasing  the 
extent  of  the  sheet  beyond  F = .19  results  in  little  change  for  the  parameters 
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Pullin  (1973) 


Figure  2 , 


Pullin  (1973) 


A A A ^ A 


1 I I I 

.2  .3  .4  .5 

Sheet  Vorticity  Fraction  (F) 

Dependence  of  vortex-sheet  shape  and  core  location  (top) 
and  convergence  of  nonlinear  part  of  normal  force 
(bottom)  on  the  traction  of  total  shed  vorticity 
contained  in  the  sheet  for  a delta  wing  (sina/cotX  = 1) 
from  slender-body  theory. 


considered.  As  can  be  seen,  the  effect  of  introducing  the  vortex  sheet  is 
to  move  the  vortex  core  inward.  It  must  be  noted,  that  the  center  of  shed 
vorticity  no  longer  corresponds  to  the  location  of  the  core,  and  for  the 
case  plotted  (F  = .19),  the  center  of  vorticity  is  located  at  y/s  = .76, 
z/s  = .24.  In  the  lower  part  of  Figure  2,  the  convergence  of  the  non-linear 
normal  force  contribution  is  presented.  This  indicates  that  global  quanti- 
ties may  be  obtained  by  considering  only  a small  segment  of  the  vortex 
sheet. 

Recently,  the  restriction  of  slender-body  theory  has  been  removed, 
and  the  general  three-dimensional  separated  problem  has  now  been  considered. 
Lifting-surface  theories  have  been  developed  along  two  distinct  lines. 

First,  there  are  the  finite-element  methods  where  the  wing  is  replaced  by 
a number  of  discrete  vortex  elements  and  their  strengths  are  determined 
by  satisfying  the  appropriate  boundary  conditions.  The  leading-edge  vortex 
problem  has  been  attacked  by  finite-element  methods  by  Kandil,  Mook,  and 
Nayfeh  (1974)^  and  Brune,  Weber,  Johnson,  Lu,  and  Rubbert  (1975)®. 

The  alternate  method  is  to  represent  the  vorticity  distribution  on 
the  planform  by  a set  of  loading  functions  whose  coefficients  are  chosen 
to  satisfy  the  boundary  conditions.  This  method  is  called  the  kernel- 

g 

function  method.  In  Matoi,  Covert,  and  Widnall  (1975)  , a lifting-surface 
theory  for  separated  flow  based  on  the  kernel-function  method  was  developed 
for  a delta  wing.  The  purpose  of  this  repeat  is  to  improve  and  extend  the 
development  of  that  kernel-function  procedure. 
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2.  Problem  Formulation 


The  reasons  for  choosing  the  kernel- function  method  over  the  finite - 

element  method  have  been  detailed  in  the  earlier  report  by  Matoi , et  al. 
g 

(1975)  . It  was  believed  that  such  a procedure  could  be  more  easily 
generalized  to  Include  unsteady  effects,  vortex  breakdown  models,  and 
other  extensions,  and  would  alleviate  some  of  the  difficulties  encountered 
when  using  discontinuous  finite-element  procedures.  These  difficulties, 
which  include  "lost"  vortices  in  the  line-vortex  models  and  convergence 
problems  as  the  number  of  elements  is  increased,  result  from  the  infinite 
discontinuity  in  the  velocity  between  discrete  panels  or  at  the  vortex 
element.  Artifices  (such  as  the  introduction  of  viscosity,  finite  core 
radius,  or  other  smoothing  procedures) are  needed  to  alleviate  this  feature 
of  the  discrete  vortex  models.  The  only  other  work  employing  continuous 
loading  functions  found  in  an  extensive  literature  search  was  by  Nangia 
and  Hancock  (1968)^^.  Many  of  the  symbols  and  much  of  the  present  formula- 
tion have  their  origin  in  that  report. 

The  coordinate  system  used  in  this  report  is  presented  in  Figure  3. 

The  planform  is  presently  considered  to  be  in  the  x-y  plane.  The  non-planar 
problem  can  also  be  considered  if  a spanwise  coordinate  is  used  instead  of 
y.  The  planform  can  be  completely  general.  The  configuration  is  considered 
to  be  symmetric,  and  the  flow  field  can  be  described  by  satisfying  the 
boundary  conditions  on  the  ri^ht  side  alone.  The  boundary  conditions  on 
the  other  side  are  automatically  satisfied  by  symmetry.  However,  the 
asymmetric  problem  (e.g.,  the  wing  at  a sideslip  angle)  can  be  considered 
with  minor  modifications.  See  Figure  4 for  the  representation  of  the  wing, 
leading-edge  vortices  and  wake.  It  is  to  be  noted  that  the  vortex-cut  model 
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of  Brown  and  Michael  is  presently  being  used  for  the  reason  of  simplicity. 
Later,  the  more  correct  representation  with  some  part  of  the  sheet  may  be 
included  in  this  type  of  analysis. 

The  governing  equation  in  three-dimensional,  inviscid,  irrotational , 
steady  flow  about  a wing-body  combination  is  Laplace's  equation.  The 
solution  can  be  formulated  as  an  integral  equation  over  the  boundary  of 
the  aircraft  configuration  and  the  regions  of  shed  vorticity.  There  are 
several  equivalent  formulations  for  the  solution,  but  vortex  sheets  are 
used  to  represent  the  wing  and  wake  in  this  report.  The  velocity  distri- 
bution can  then  be  given  in  the  following  vector  form 


where 


v(r) 


J f . Yx(^  - r)  dS' 
^ is*  |r'  - r|^ 


r'  - f = (x*  - x)i  + (y*  - y)j  + (z’  - z)k 
y = ^^1  + Yy  j + 

V = ui  + vj  + wk 


(1) 


S tne  Surface  of  integration,  y is  the  vorticity  vector,  v is  the 
perturbation  velocity  vector,  i.e.,  the  velocity  minus  the  uniform  free  stream; 
and  r is  the  radius  vector  from  the  origin.  The  velocities  are  nondimen- 
sionalized  with  respect  to  the  free  stream,  and  the  distances  are  nondimen- 
sionalized  with  respect  to  the  maximum  chordwise  length. 

Since  the  vorticity  lies  in  the  plane  of  the  wing  and  wake,  the  vorti- 
city representing  the  wing  consists  of  only  two  non-zero  components  y^  and 
Yy  . Conservation  of  vorticity  can  then  be  written  as 
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3y 

5y 


(2) 


In  the  present  formulation,  the  vorticity  in  the  wing  and  wake  is  divided 
into  two  parts.  First,  there  is  a portion  --  represented  by  subscript  1 -- 
which  behaves  like  the  traditional  bound  vorticity  and  only  leaves  the  wing 
at  the  trailing  edge.  Secondly,  there  is  a portion  --  represented  by 
subscript  2 --  which  feeds  the  leading-edge  vortices. 


’x  = * ‘2  (3) 

The  contributions  are  chosen  so  that  Yi  and  6^  fall  to  zero  at  the 

leading  edge,  while  Y2  and  fig  are  related  so  that  the  vorticity  is  per- 
pendicular to  the  leading  edge.  This  1s  necessitated  by  the  Brown  and 
Michael  model  employing  a vortex-cut  combination  to  insure  finite  velocities 
at  the  leading  edge.  A more  complete  model  employing  a leading-edge  vortex 
sheet  representation  would  utilize  a general  separation  angle  which  would  be 
fixed  by  the  no-load  (Kutta)  condition  at  the  leading  edge. 

The  functional  forms  of  the  wing  vorticity  are 


M N 4 a. 


Y,(0.n)  J,  J 


n,m 


1 2 


2n 


"2(m-l) 


(n)  sin  ne 


Y2(x.y)  = 


-y 


rr~T 

X + y 


J J,  9,  (2q  - 1)  l 
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where 


X = 1/2  [xy^  (y)  + (y)  ] - 1/2  c(y)  cosO 

y = sn  (5) 

The  distribution  for  was  obtained  from  linearized  lifting  surface 
theory  and  vanishes  at  the  leading  and  trailing  edges.  For  additional 
details,  see  Ashley  and  Landahl  {1965)^V  are  Chebyshev  polynomials 
of  the  second  kind,  X|^j.  and  x^^-  are  the  location  of  the  leading  and 
trailing  edges  of  the  planform,  respectively,  c is  the  local  chord,  and 
s is  the  semi  span.  The  form  of  insures  that  the  vorticity  feeding  the 
leading-edge  vortex  will  be  perpendicular  to  leading  edges,  which  are 
formed  by  rays  from  the  apex.  Modes  similar  to  these  were  developed  by 
Nangia  and  Hancock  (1968)'^  for  the  three-dimensional  delta  wing.  The 
coefficients  a^^  and  g^  are  tho  unknown  coefficients  of  the  vorticity 
functions.  The  leading-edge  vortex  strength  is  defined  by 

9 

= i.  Sn  sin  [ (2q-l)Tix/2]  (6) 

q=l 


where  *^he  modes  have  been  chosen  such  that  ^ = 0 at  the  trailing  edge, 
i.e.,  there  is  no  additional  feeding  of  wing  vorticity  into  the  leading-edge 
vortex  at  the  trailing  edge.  See  Figure  5 for  a representation  of  the  bound 
vorticity  component  y2-  Using  Equation  2,  one  can  obtain 


4-1  (6  ,n)  = - 


411  ^ 

/:  r~  m=l  n=l 
1-n 


^ "n,m 

T??r~ 


1/2  {-[  (2m-l)n  + 
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dc 

dn 


] U 
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V3 


.[Slnl^  _ sin^j 


2n(l-nll 
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2(m-l)  ' dn 


dx 


LE 


dV) 


dc  \ sin  nO 


n 


1/4 


dc 


r sin  (n-1)0  ^ sin  (ri+l)6 
L fpl  :t+T  J 


(7) 


where 

U.^(n)  5 0 

The  wake  is  assumed  to  be  flat  and  to  possess  the  trailing  vorticity 
distribution  imparted  at  the  trailing  edge,  as  in  linear  lifting  surface 
theory.  Consequently,  the  trailing  wake  adds  no  new  parameters. 

Finally,  the  location  of  the  leading-edge  vortex  is  defined  by  the 
polynomials 

L 

' J,  \ ’2'-''’'’ 

\ ’2'-'**’  (8) 

where  are  Chebyshev  polynomials  of  the  first  kind.  This  introduces  the 

final  set  of  unknowns,  g and  g . 

y z 

■'v  V 

After  the  mode  shapes  hflve  been  defined.  It  is  necessary  to  satisfy 
the  appropriate  boundary  conditions  to  determine  the  unknown  coefficients. 
The  applicable  boundary  conditions  are  the  no-flow  condition  through  the 
wing  and  the  no-load  condition  on  the  free  vortex  sheet  and  on  the  leading 
edge  vortex-cut  combination. 
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dr  (x  ) 
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1 +S^ 


Figure  5.  Representation  of  bound  vorticity 
feeding  leading-edge  vortex. 
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The  downwash  condition  becomes 


w = -sina 


(9) 


on  the  wing  (2=0),  where  a Is  the  angle  of  attack  and  w Is  the  upwash 
induced  by  the  vorticity  distribution.  This  requires  the  evaluation  of 
the  w component  of  the  integral  In  Equation  1 at  a set  of  collocation 
points.  The  cosine  distribution  of  Hsu  (1957)  , modified  for  separated 

flow,  is  given  In  Figure  6 for  five  chordwise  station  (NCORD  = 5)  by  five 
spanwise  stations  (NSPAN  = 5).  A large  percentage  of  the  computation  time 
is  presently  consutiied  by  the  calculation  of  the  contribution  from  the  wing 
surface,  since  the  denominator  contains  a singularity  at  the  collocation 
points. 

A further  distinction  must  now  be  made  between  the  contributions  in 
Equation  9.  Its  various  components  are  distinguished  by  the  nature  of 
their  contribution  to  the  vertical  velocity. 

First,  since  the  bound  vorticity  related  to  Yi  . Described  in 
Equation  4,  only  leaves  at  the  trailing  edge,  horseshoe  vortices  are  used 
to  represent  this  contribution,  which  corresponds  to  an  Integration  in  the 
X direction  of  Equation  1.  Thus,  for  that  contribution,  the  relevant 
vorticity  component  becomes 


w 
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(x.y.z) 


s 

-'S 


j Y,  Kw  dx  'dy ' 


(10) 
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Figure  6.  Collocation  points  for  downwash  on  right 
half  of  wing  (NSPAN  = 5,  NCORD  = 5). 
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where 


X - X 


Kw 


I [1 


(y-y')"  + z' 


2z‘ 


'(x-*')^*(y-y'r  ♦ z 


(y-y'  )^+z^ 


Jli/Vl 


[(x-x  ) +(y-y  ) +z  J ' 


(11) 


Thus  the  singularity  for  the  contribution,  , is  limited  to  the 

spanwise  direction,  when  2 = 0,  and  the  contribution  from  this  ter--  to 

Equation  8 may  be  readily  evaluated.  The  four  integration  regions 

employed  for  this  surface  integration  are  presented  in  Figure  7 (top). 

The  actual  evaluation  was  performed  using  a simplified  version  of  a routine 

1 2 

available  at  M.I.T.,  which  was  developed  by  Widnall  (1964)  for  the  more 
general  problem  of  the  unsteady,  incompressible,  non-planar  wing.  This 
program  was  based  on  an  extension  of  the  work  by  Watkins,  Runyan,  and 
Woolston  0959)^^.  Alternate  forms,  such  as  the  procedure  developed  by 
Hsu  (1957)^^  could  be  used  instead. 

For  the  contribution  from  ^2  ^2'  evaluation  of  the  integral 

in  Equation  1 is  handled  in  two  parts.  The  integral  over  the  wing  surface 
Sw  can  be  rewritten  as 


(x'-x)  Y2(x'>y’)  - (y'-y)  '52^x'.y') 
Sw  ”[(xrx-)^  + (y-y')^  ^ 


dx  'dy ' 


(12) 
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On  the  wing  surface,  z = 0,  the  integral  may  be  rewritten  to  isolate  the 
singularity. 


w^lx.y.o) 


1_  f 

4ti  J 


^^.(x'-x)[y2(x‘ .y')  - 

Svf  [ (x  - x')^  ♦ (y  - y'7?^ 


+ 


1 

37 


(x'-x)  dx'dy' 

[(x-x')^  + (y-y’)^]^^^ 


dx^dy- 

[(x-xT  + (y-y')^]^^^ 


(13) 


The  first  term  can  now  be  evaluated  numerically,  while  the  remaining  two 
terms  are  evaluated  in  Appendix  A.  Figure  7 (bottom)  gives  the  five  inte- 
gration regions  employed  for  this  surface  integration  for  the  delta  wing. 
Each  region  is  covered  by  a 24  x 24-point  Gaussian  quadrature.  Fortunately, 
this  computation  does  not  require  any  iteration  and  is  performed  once  for 
a given  set  of  collocation  points  and  wing  planform.  Since  this  calculation 
and  a related  integral  in  the  no-force  condition  consume  much  of  the 
computational  effort,  significant  reductions  in  this  integration  would  be 
advantageous. 

Additional  contributions  to  the  downwash  on  the  wing  are  obtained  from 
the  wake  aft  of  the  wing  and  from  the  leading-edge  vortices. 

As  described  previously  in  Figure  4,  the  spanwise  component  of  the 
vorticity,  Y2>  assumed  to  be  zero  aft  of  the  trailing  edge,  while  the 
streamwise  component,  62#  is  only  a function  of  the  spanwise  variable  in  the 
wake.  Thus,  one  obtains  the  following  contribution  from  the  wake  according 
to  Equation  1 . 
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w^{x,y,z)  = 


1 

471 


(y‘-y)  62(y’)  dy'dx* 

[(x’-x)^  + (y--y)^  4 


(14) 


wnere  S-  represents  the  wake  surface.  The  streamwise  integral  may  be 
performed  explicitly  for  a given  planform  to  yield 


W.f(x,y,z)  = 


4ti 


s 

(y’-y) 


(15) 


where 

1 (y';x,y,z)  = = j [1-  ■ ' — ■ ] 

^ ’^(xy^(y' )-  x)^  + (y'-y)^  + z^ 

(16) 

The  function  Xj^(y)  describes  the  location  of  the  trailing  edge  of  the 
specified  planform.  On  the  wing  surface,  z = 0,  this  reduces  to 


1 fS  5„(y')  ^ 

»T(«.y.o)-  - Jr  1,  — ti- 


-s  y -y 


/ 


(x.rE(y')  - + (y’-y)^ 


.]  dy' 


(17) 


Finally,  the  contribution  from  the  leading-edge  vortices  is 


W„(x.y,z)  ■=  . r(x')  [f^(x' ;x.y,z)  + f^(x' ;x,-y,z)]  dx' 


where 


(x'-x) 


dy„(x' ) 


(18) 


(yv(x')-y) 


f (x';  x.y.z)  = 
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[ (x'-x)2  + (y^(x')-y)2  + (z^(x')-z)2l3/2 

(19) 


- 25  - 


This  is  the  upwash  velocity  induced  by  two  semi-infinite  line  vortices 
according  to  the  Biot-Savart  law.  The  contribution  on  the  wing  is  obtained 
by  calculating  this  velocity  component  at  the  appropriate  control  point. 

Thus,  Equation  9 becomes 

w = w^  + w^  + Wy  + Wj,  = - sina 

(20) 

The  no-load  condition  on  the  trailing  vortex  sheet  and  the  Kutta 
condition  at  the  trailing  edge  of  the  wing  are  essential  in  distinguishing 
this  fully  three-dimensional  problem  from  earlier  slender-body  and  conical 
models.  First,  the  Kutta  condition  at  the  trailing  edge  requires  that  the 
vorticity  vector  be  parallel  to  the  velocity  vector 

•Y  (xjr(y),y) 

V 

5 (xj^(y),y)  cosa  + u (21 ) 

Q 

However,  the  results  of  Brune,  et  al . (1975)  indicate  that  the  spanwise 
vorticity  component,  y , Is  approximately  zero  at  the  trailing  edge  for 
the  delta  wing  case.  This  corresponds  to  the  Kutta  condition  applied  in 
linear  lifting  surface  theory.  Thus,  the  method  employed  here  was  to  set 
the  spanwise  vorticity  component,  y , equal  to  zero  aft  of  the  trailing 
edge  as  was  previously  illustrated  in  Figure  4.,  i.e.,  the  linear  boundary 
condition  has  been  applied  on  W trailing  vortex  sheet  rather  than  the 
nonlinear  one.  The  form  of  (Equation  4)  insures  that  this  component 
vanishes  smoothly  at  the  trailing  edge  to  satisfy  the  linear  Kutta  condi- 
tion there.  However,  the  contribution  from  Y2  (Equation  4)  does  not 
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iiutDnkitir  il  ly  vdni'.h  .if.  th»*  trail  in<j  and  consequontly , there  is  a 

discontinuous  transition  in  this  contribution.  The  use  of  the  linear 


boundary  condition  on  the  wake  seems  justified,  since  the  major  cause  of 
the  nonlinearity  in  the  present  problem  is  the  presence  of  the  leading- 
edge  vortices  which  induce  high  spanwise  velocities  on  the  planform. 

Kandil,  et  al.  (1974,  p.  13)^  noted  that  "Numerical  experiments  indicate 
that  the  wake  adjoining  the  trailing  edge  does  not  exert  a strong  influence 
on  the  results." 

Finally,  the  condition  of  no-load  on  the  vortex-cut  combination  is 
♦or'’ulated  on  the  right-hand  vortex  as  an  extension  of  the  Brown  and 
Michael  model.  The  force  components  per  unit  length  in  the  y and  z 
directions  are  given  by  and  F^,  respectively. 


F ,/2r  = - 

y dx 


- r jj  \ ♦ "f  * 


F /2r 


z—  ar  " f ^ ■ ^LE  ■ "i 


(22) 


where  w.  and  v.  are  the  velocities  induced  by  the  vorticity  distribution, 
excluding  the  contributions  of  the  right-hand  vortex  on  itself  due  to 
cjTvature.  The  calculations  of  the  velocity  compont  at  collocation 
;.oints  along  the  heading-edge  vortex  requires  the  evaluation  of  terms 
similar  to  those  developed  for  Equation  20. 

Specifically, 


Wi  = 


W2  > 


Wt  + W„ 


(23) 
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where 


00 


Wp  (x,y,z)  = 

r.  0 


r {x‘)  fw(x';x,y.z)  dx' 


(24) 


The  Integrands  no  longer  possess  a singularity,  and  the  Integral  In 
Equation  12,  for  example,  Is  performed  by  two  24  x 24-po1nt  Gaussian 
quadratures. 

Meanwhile,  the  contributions  for  v^.  can  be  developed  in  a parallel 
manner 


Vi  = Vi  + V2  + Vf  + V 


where 
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with 
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and 

V2(x,y.z)  = - Is-  J 


62(x’,y*)  dx’dy- 
[(x’-x)2  + (y’-y)^  + 


(28) 


Vy(x,y,2) 
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where 


z (x')  - z 
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(x'-x) 


f^(x'  .x.y.z] 


4ti 


[(x'-x)^  + (y„(x*)-y)^  + {zU')-z)^f^^ 


(31) 


The  vorticity  distribution  has  again  been  assumed  to  depend  only  on  the 
spanwise  variable  in  the  wake.  The  function  I(y)  has  been  defined  in 
Equation  16. 

Thus,  the  original  problem  of  Laplace's  equation  with  its  companion 
boundary  conditions  has  been  formulated  as  a system  of  nonlinear  equations 
in  terms  of  the  unknown  vorticity  coefficients,  a^  and  g^,  and  the 
unknown  vortex  location  coefficients,  g^^  and  g^^.  This  has  the  advantage 
of  transforming  a set  of  integro-differential  equations  (Equations  1,  9 
and  22)  into  a system  of  algebraic  equations  which  can  be  solved  on  a 
digital  computer. 

The  primary  output  parameters  of  vortex  location  and  vorticity  distri- 
D.i:ior,  on  the  wing  can  then  be  used  to  obtain  the  pressure  distribution  on 
the  wing.  One  can  obtain  the  lift  and  the  pitching  moment  by  a simple 
integration  of  the  pressure  loading. 

The  nonlinear  pressure  difference  on  the  wing  is 
= - 2Au  - A(v^  + u^) 

P Pu 


(32) 


where  the  pressure  coefficient,  Cp,  represents  the  pressure  nondimensional - 
ized  by  the  dynamic  pressure,  the  difference  symbol.  A,  refers  to  the 
difference  in  the  quantity  between  the  upper  and  lower  surfaces,  which  are 
represented  by  the  subscripts  u and  i,  respectively.  Since  the  quadratic 
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term  from  the  chord-wise  component  of  velocity,  u , Is.  small  compared  to 

2 

the  spanwise  contribution,  v , that  term  Is  Ignored  and  the  pressure 
difference  can  be  rewritten  In  the  following  form 

ACp  = - 2y  + (v^  + 6 

(33) 

This  form  has  been  selected  as  the  vorticity  components,  y and  6, 
can  be  readily  evaluated  once  the  vorticity  coefficients  have  been  found. 
The  second  term  on  the  right-hand  side  includes  a factor  which  Is  twice 
the  local  mean  spanwise  velocity.  On  the  wing  the  only  non-zero  contri- 
bution comes  from  the  leading-edge  vortices.  Thus, 

(Vy  + , Q = 2 r{x')  [f^(x';x,y,0)  - fy(x' ;x ,-y ,0)]  dx' 

(34) 

This  concludes  the  section  on  problem  formulation.  The  next  section 
will  discuss  the  actual  numerical  procedure;  and  areas  of  difficulty  will 
be  detailed. 
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3.  Numerical  Procedure 


The  procedure  to  calculate  the  unknowns  is  now  described.  The  initial 
program  was  written  for  the  delta  wing,  but  it  was  later  generalized  to 
include  arrow  wings.  An  iterative  scheme  to  satisfy  the  system  of  equations 
provided  by  the  downwash  condition  and  the  no-force  condition  on  the  vortex- 
cut  combination  must  be  chosen  first.  The  downwash  condition  is  linear  in 
terms  of  the  vorticity  coefficients,  while  the  no-force  condition  is  non- 
linear in  all  parameters.  Therefore,  following  the  earlier  procedure 
developed  by  Nangia  and  Hancock  (1968)^^,  an  attempt  was  made  to  satisfy 
the  boundary  conditions  sequentially. 

An  initial  position  for  the  leading-edge  vortex  is  chosen.  For  example, 

i 

‘or  the  delta  wing,  the  initial  location  was  obtained  from  the  Brown  and 
'■'ichael  model.  The  number  of  vorticity  modes  (M,N,  and  Q)  in  Equation  4 
must  be  specified.  A set  of  downwash  points  greater  than  or  equal  to  the 
number  of  vorticity  coefficients  must  then  be  chosen.  The  solution  of  a set 
of  simultaneous  linear  equations  from  Equation  20  then  provides  a first 
approximation  for  the  unknown  vorticity  coefficients.  Figure  6 illustrates 
the  choice  of  collocation  points  determined  to  provide  adequate  resolution 
for  four  chordwise  vorticity  modes  (N  = Q = 4)  by  five  spanwise  vorticity 
nodes  (M  = 5)  in  Equation  4.  Adequate  resolution  was  determined  by  increasing 
the  number  of  modes  and  collocation  points  until  the  resulting  pressure 
distribution  converged  to  a semblance  of  the  Brown  and  Michael  results(valid 
for  slender  wings)  for  the  delta  wing  (AR=1).  Some  details  of  this  procedure 

Q 

are  presented  in  Matoi,  et  al.(1975)  for  a different  set  of  mode  shapes. 

An  attempt  was  then  made  to  satisfy  the  no-force  condition  in  a manner 
similar  to  that  employed  by  Nangia  and  Hancock  (1968)^^.  The  forces  were 
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calculated  using  Equation  13,  at  a set  of  collocation  points,  typically 
five,  and  the  vortex  was  then  moved  to  reduce  these  forces,  according  to 
the  following  rule. 


d 


- d 


(F  2 ^ F 2)^/2 
' y z ' 


dx 


Az. 


(F  ^ . F 
' y 1 ’ 


(35) 


where  d is  chosen  small  enough  to  prevent  divergence  of  the  procedure,  e.g., 
d = .01.  Since  the  forces  have  been  normalized,  the  vortex  movement  is 
restricted  to  d.  Unfortunately,  this  method  seemed  to  require  considerable 
discretion  in  the  choice  of  d.  Furthermore,  it  is  necessary  to  select  the 
number  of  times  to  apply  the  no-force  condition,  before  reapplying  the  down- 
wash  condition.  The  downwash  condition  must  be  satisfied  again,  since  the 
previous  set  of  vorticity  coefficients  induces  a residual  downwash  on  the 
wing  once  the  vortex  is  moved. 

One  could  limit  the  number  of  modes  in  Equation  8 to  reduce  difficulties 

with  oscillation  in  the  vortex  position.  However,  convergence  was  not 

obtained  using  this  procedure,  and  alternatives  had  to  be  considered.  The 

form  of  Equation  22  suggests  that  Equation  35  is  not  the  optimum  manner  for 

» 

moving  the  vortex  as  the  velocity  components,  v^  and  w^ , also  depend  on  the 
vortex  location.  In  the  slender-body  problem  of  Brown  and  Michael,  one 
encounters  a similar  nonlinear  problem  for  finding  the  vortex  location,  y^ 
and  Zy,  in  the  cross-flow  plane.  Brown  and  Michael  (1955)*^  originally 
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solved  the  problem  indirectly  by  assuming  values  of  the  vortex  location  and 
then  satisfying  the  no-force  condition  by  trial  and  error.  Their  problem 
was  greatly  simplified  in  that  the  downtvash  condition  was  automatically 
satisfied  by  a conformal  transformation,  which  aligned  the  two-dimensional 

Q 

flat  plate  with  the  flow  direction.  Later,  Pullin  (1973)  developed  a 
Newton  Raphson  iteration  scheme  for  the  Smith-type  model,  which  included  the 
Brown  and  Michael  problem  as  a degenerate  case.  Trial  runs  of  Pullin's 
program  indicated  that  the  Newton-Raphson  procedure  "converged"  in  approxi- 
mately four  iterations  for  the  Brown  and  Michael  model. 

The  Newton-Raphson  procedure  has  several  advantages  over  the  procedure 
developed  by  Nangia  and  Hancock  which  ignores  the  effect  of  the  change  in  the 
vortex  position  on  the  velocity  components,  and  w^.  First,  the  scheme  is 
amenable  to  automatic  iteration  without  opeiator  interference.  Secondly,  the 
iteration  procedure  converges  whenever  the  derivatives  are  locally  monotonic. 
Consequently,  although  the  Nangia  and  Hancock  method  appeared  to  work  for  the 
simple  case  they  considered,  a Newton's  method  was  developed  to  locate  the  new 
vortex  position  in  an  iteration  procedure.  As  a preliminary  step,  a numerical 
experiment  on  the  applicability  of  Newton's  method  was  conducted  for  the 
slender  body  model  of  Brown  and  Michael,  since  it  was  felt  that  useful  infor- 
mation could  be  obtained  on  the  force  Jacobian  more  economically  in  two 
dimensions  than  in  three  dimensions.  The  numerical  experiments  were  conducted 
on  a slender  delta  wing  of  unit  aspect  ratio  (AR  = 1)  at  an  angle  of  attack, 

1 = 14.3°,  which  corresponded  to  the  three-dimensional  problem  being  studied. 
The  residual  force  on  the  vortex-cut  combination  was  calculated  for  different 
vortex  locations,  which  are  the  unknowns. 
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In  Figure  8 the  spanwise  force  component,  is  presenteu,  anu  in 
Figure  9 the  vertical  force  component,  F^,  is  given. 

The  forces  are  plotted  versus  the  vortex  location,  and  z^,  at  x = 1.  The 
triangle  symbol  represents  the  point  where  the  lines,  F^  = 0 and  = 0, 
intersect  to  define  the  stable  location  for  this  flow  condition,  "^he  t/(0- 
dimensional  results  indicate  that  F^  is  a monotonic  function  of  Lotn  j ^ 
and  Zy.  F^,  on  the  other  hand,  is  monotonic  in  much  of  the  neighborhood  of 
the  stable  point,  but  is  poorly  behaved  near  the  leading  edge.  This 
behavior  did  not  preclude  the  use  of  Newton's  method  in  the  Brown  and  Michael 
model,  but  should  be  remembered  in  the  event  of  difficulties  in  three 
dimensions. 

Therefore,  a Newtons  procedure  was  developed  for  the  three-dimensional 
case  to  calculate  the  new  vortex  location,  based  on  the  forces  and  the  force 
Jacobian  calculated  in  the  preceding  iteration.  This  modification  improved 
the  rate  of  convergence  in  reducing  the  forces  for  a given  vorticity  cst'"'- 
bution.  However,  when  the  given  vorticity  distribution  was  updated  to 
satisfy  the  downwash  condition,  the  large  changes  in  the  vorticity  coefficients 
resulted  in  large  forces.  Various  attempts  to  limit  the  changes  in  the 
vorticity  coefficients  and  the  vortex  location  coefficients  were  made  by 
only  partially  reducing  the  forces  and  then  partially  reducing  the  residual 
downwash  in  a sequential  procedure.  This  procedure  did  not  appear  to  be 
converging;  so  a more  detailed  look  was  taken  of  the  slender-body  problem. 

Since  the  downwash  condition  can  not  be  automatically  satisfied  in  the 
three-dimensional  case  as  in  the  slender-body  case,  this  difference  may  hide 
the  cause  of  the  convergence  difficulties.  Therefore,  the  two-dimensional 
problem  was  investigated  in  a manner  parallel  to  the  three-dimensional  problem. 
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Figure  8.  Spanwise  force  component  on  leading-edge  vortex 

versus  vortex  location.  Downwash  condition  satisfied 
on  delta  wing  (sina/cotl  = 1)  for  Brown  and  Michael 
model.  Symbol  (A)  represents  stable  point,  F = F = Q. 
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V. 


The  Brown  and  Michael  problem  was  thus  reformulated  as  a vorticity 
distribution  on  the  wing  with  unknown  loading  coefficients.  The  leading- 
edge  vortex  strength  and  location  were  also  unknown  originally.  The 
downwash  and  no-force  condition  were  then  written  in  terms  of  these 
unknowns  in  the  physical  y-z  plane. 

The  known  location  of  the  vortex  was  first  used  to  calculate  the 
vorticity  coefficients  from  the  downwash  condition.  Then  the  vortex  was 
moved  to  different  points,  and  the  resulting  forces  are  plotted  in  Figure  10 
and  Figure  11.  Although  the  vertical  force  component  appears  similar  to 
the  one  obtained  previously  (cf..  Figure  9),  the  spanwise  force  component 
has  changed  considerably  (cf..  Figure  8).  Especially  significant  is  the 
fact  that  the  lines,  ‘ ^ and  F^  = 0,  are  nearly  coincident,  which  suggests 
difficulties  in  finding  their  point  of  intersection.  In  fact,  when  an 
attempt  was  made  to  iterate  between  reducing  the  downwash  residue  and  the 
forces  on  the  vortex,  the  procedure  failed  to  converge.  The  procedure 
oscillated  between  the  true  solution  and  a false  solution,  where  the  forces 
were  zero,  but  the  downwash  condition  was  not  satisfied.  Some  of  the 
details  of  these  calculations  are  included  in  Appendix  B. 

Therefore,  an  alternative  strategy  was  developed,  whereby  the  forces 
and  downwash  residues  were  reduced  simultaneously,  instead  of  sequentially, 
by  changing  the  vorticity  coefficients  as  well  as  the  vortex  location 
according  to  Newton's  method.  This  procedure,  although  requiring  more  effort 
to  calculate  the  derivatives  of  the  downwash  terms  as  well  as  the  derivatives 
of  the  force  terms  with  respect  to  the  vorticity  coefficients,  resulted  in 
smooth  convergence  to  the  proper  solution.  As  a typical  example,  five 
vorticity  modes  and  six  control  points  were  employed  for  the  slender  delta 
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Figure  10.  Spanwise  force  component  on  leading-edge  vortex 
versus  vortex  location  for  modified  Brown  and 
Michael  model.  Vorticity  coefficients  chosen  to 
satisfy  downwash  condition  at  stable  point  for 
delta  wing  (sina/cotX  = 1) . Symbol  (A)  represents 
stable  point, 
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Figure  11.  Vertical  force  component  on  leading-edge  vortex 
versus  vortex  location  for  modified  Brown  and 
Michael  model.  Vorticity  coefficients  chosen  to 
satisfy  downwash  condition  at  stable  point  for 
delta  wing  (sina/cotl  = 1) . Symbol  (A)  represents 
stable  point , F = F =0. 


wing  (AR  = 1,  a = 14.3°)  being  considered.  The  vortex  was  initially 
assumed  to  have  a spanwise  location  of  80  per  cent  of  the  semispan  and  a 
height  of  30  per  cent  of  the  semispan  (y^/s  = .8,  z^/s  = .3).  The 
Iteration  procedure  converged  to  a stable  point  (y^/s  = .86,  z^  = .24) 
in  eight  iterations.  See  Figure  12  for  a graphic  description  t'^e 
convergence  rate.  Thus,  the  procedure  was  adapted  to  the  fully  tnree- 
dimensional  case. 

The  full  procedure  presently  being  employed  to  satisfy  the  downwash 
and  no-force  condition  is  described  next.  First,  an  initial  location  for 
the  vortex  is  found.  This  initial  location  is  used  in  conjunction  with 
Equation  20  to  find  an  initial  distribution  of  vorticity  coefficients. 

Now,  the  residual  forces  and  the  remaining  derivatives  for  the  Jacobian 
are  calculated.  The  residues  and  the  Jacobian  are  used  to  calculate  a new 
set  of  vorticity  coefficients  and  vortex  location  coefficients.  This  last 
step  is  Iterated  until  the  procedure  converges.  If  the  same  number  of 
equations  and  unknowns  are  employed,  then  convergence  is  attained  when  the 
residue  becomes  small  compared  to  the  angle  of  attack.  If  the  number  of 
equations  is  greater  than  the  number  of  unknowns,  it  is  generally  impossible 
to  satisfy  all  of  the  conditions  imposed,  and  convergence  is  attained  when 
the  residue  is  minimized  and  further  iterations  produce  no  additional  change. 
Although  the  Jacobian  is  presently  being  updated  for  the  force  contributions 
at  every  Iteration,  it  appears  that  some  savings  in  computational  effort  may 
be  obtained  by  only  a partial  updating  as  most  of  the  derivatives  change 
slowly.  This  modification  can  be  Implemented  after  greater  knowledge  of  the 
procedure  has  been  acquired. 
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Figure  12 


Iterations 

Convergence  of  vortex  location  to  stable  point 
in  cross-flow  plane  for  slender  delta  wing 
(AR  = 1,  a = 14.3") . 
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4.  Program  Description 


The  actual  FORTRAN  programs  to  perform  the  operations  described  in 
the  previous  section  are  included  in  Appendix  C and  are  documented  primarily 
by  cormient  cards.  Additionally,  the  coded  symbols  are  generally  similar  to 
their  English  counterparts  to  facilitate  comprehension.  The  complete  proce- 
dure is  presently  divided  into  five  computer  programs:  Program  I,  Program 
WOW,  Program  IIIA,  Program  III  Prime,  and  Program  V. 

Program  I calculates  the  influence  coefficients  due  to  the  contributions 
from  Yj,  and  62  for  the  downwash  condition  at  a set  of  collocation  points 
for  the  specified  number  of  chordwise  modes.  The  number  of  chordwise  modes, 

0 and  N,  in  Equation  4 is  represented  by  the  FORTRAN  variable  NOCM.  The 
number  of  spanwise  modes,  M,  in  Equation  4 is  represented  by  the  variable 
NOSM.  The  nuniber  of  chordwise  collocation  stations  on  the  wing  surface  is 
given  by  NCORD  and  the  number  of  spanwise  collocation  stations  is  given  by 
NSPAN,  where  the  product  of  these  numbers  (NCORD  times  NSPAN)  must  be 
greater  than  or  equal  to  the  total  number  of  modes  (NOCM  times  (NOSM  + 1) 
for  the  system  to  be  completely  determined. 

Program  WOW  is  the  program  which  evaluates  the  contribution  of  to 
the  downwash  condition  according  to  Equation  10,  at  the  chosen  set  of  collo- 
cation points.  As  mentioned  previously,  this  is  a simplified  version  of 

1 3 

the  program  developed  by  Widnall  (1964)  to  calculate  the  influence 
coefficients  from  a distribution  of  horseshoe  vortices. 

Program  IIIA  uses  the  results  of  Program  I and  Program  WOW  as  inputs 
and,  furthermore,  calculates  the  contributions  from  the  leading-edge  vortices 
and  wake  due  to  62.  Then  it  solves  a set  of  simultaneous  equations  based  on 
the  downwash  condition  (Equation  20),  to  find  the  initial  values  for  the 
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near  the  apex.  This  is  in  agreement  with  experiments  which  generally 
show  that  the  flow  approximately  satisfies  the  Brown  and  Michael  con- 
ditions, away  from  the  trailing  edge.  Three-dimensional  effects  are 
apparent  in  the  slope  of  the  leading-edge  vortex  strength.  The  modes 
have  been  chosen  to  insure  that  the  slope  is  zero  at  the  trailing  edge, 
after  which  no  additional  vorticity  is  shed  from  the  leading  edge. 

Figure  14  illustrates  the  change  in  the  stable  position  of  the 
leading-edge  vortex  on  the  right  half  of  the  wing.  The  spanwise 
position  from  the  Brown  and  Michael  model  is  not  included  since  it  is 
almost  coincident  with  the  NOFP  = 1,  LMAX  » 1 result.  The  parameter 
choice,  LMAX  * 1 (see  Equation  8 for  details  of  the  expansion), 
corresponds  to  a linear  approximation  for  the  vortex  position,  while 
the  choice,  LMAX  = 2,  represents  a cubic  fit  for  the  vortex  location. 

As  can  be  seen  from  Figure  14,  the  spanwise  position  changes  slightly, 
although  the  three-dimensional  effect  seems  to  be  manifested  in  an 
effort  to  align  the  vortex  with  the  free  stream  direction.  The  same 
tendency  is  indicated  by  the  vertical  position  of  the  vortex,  although 
convergence  is  only  partly  indicated  by  the  bracketing  of  the  final 
vortex  location  by  the  lower  order  models. 
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A comparison  with  the  experimental  results  of  Peckham  (1958) 
and  with  some  slender-body  models  is  presented  in  Figure  15  for  the 
vortex  position  over  the  deltl  wing.  The  agreement  for  the  vertical 
position  is  excellent,  while  the  spanwise  position  indicates  the 
general  limitations  of  a Brown  and  Michael  model  in  predicting  the 
vortex  location  too  far  outboard.  It  must  be  noted  that  this  is  not 
a completely  fair  test,  since  the  vortex  location  represents  the  center 
of  vorticity  in  the  Brown  and  Michael  model.  For  the  Smith-type  model. 
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on  the  other  hand,  the  spanwise  location  of  the  center  of  vorticity  is 
five  per  cent  of  the  semispan  outboard  of  the  core  position.  This  shift 
is  due  to  the  presence  of  vorticity  in  the  leading-edge  vortex  sheet. 
Thus,  it  would  be  reasonable  to  assume  that  the  spanwise  location  of  the 
center  of  vorticity  for  the  experimental  data  is  also  outboard  of  its 
vortex  core  location. 

Some  pressure  distributions  are  presented  next.  In  Figure  16, 
the  pressure  distribution  calculated  by  the  present  procedure  is  com- 
pared with  the  results  of  the  slender-body  models.  Again  excellent 
agreement  is  obtained  with  the  Brown  and  Michael  model  for  the  stations 
near  the  apex  while  the  aft  stations  show  the  attenuation  due  to  the 
presence  of  the  trailing  edge. 

Figure  17  shows  a comparison  with  the  experiments  of  Nangia 
ard  Hancock  (1969)^^  on  a flat  plate  delta  wing.  The  experimental 
results  are  presented  as  a smooth  curve  as  provided  in  the  referenced 
report.  The  general  shape  and  magnitude  of  the  loading  have  been 
predicted,  but  the  limitations  of  a Brown  and  Michael  model  are  again 
apparent.  The  predicted  peak  is  too  far  outboard  and  too  high. 

Figure  18  presents  a comparison  with  some  data  available  for 
a thick  delta  wing.  Here  the  thickness  to  chord  ratio  is  .12,  and  a 
conparison  of  lift  curves  from  Peckham  (1958)  indicates  that  the 
pressure  peaks  are  ten  to  twenty  per  cent  lower  for  the  thick  wing 
than  for  the  flat  plate  >'ing.  Also  the  vortex  position  is  further  in- 
board and  higher  for  the  thick  wing.  These  effects  have  been  verified 
theoretically  in  the  slender-body  range  by  Smith  (1971)^^.  Thus, 
detailed  comparison  between  the  experimental  data  of  Peckham  for  thick 
wings  and  the  theoretical  predictions  for  flat  plate  delta  wings  is 
limited. 
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Present  Theory 

NCORD  = 5.  NOCM  = 4.  NOSM  = 5 
LMAX  = 2.  NOFP  = 3.  X = 14.30 


X = .33 
X = .83 


.6 


Figi;re  17.  Comparison  of  experimental  and  theoretical  loading 
values  on  delta  wing  (AR=1). 


finally,  d comparison  is  made  with  some  other  lifting  surface 

O 

theories.  As  mentioned  in  the  Introduction,  Brune,  et  dl.(1975)  and 

Kandil,  et  al.  (1974)^  have  developed  finite-element  lifting  surface 

theories  with  leading-edge  separation.  A comparison  of  these  theories 
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with  the  present  theory  and  the  experimental  results  of  Peckham(1958) 

is  presented  in  Figure  19.  Both  of  the  other  theoretical  curves  were 

18 

taken  from  Kandil,  Mook , and  Nayfeh  (1976)  , who  referenced  Weber, 
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Brune,  Johnson,  Lu,  and  Rubbert  (1975).  As  expected,  the  present 
theory,  which  is  based  on  a Brown  and  Michael  vortex-cut  representation 
predicts  a higher  peak  loading  which  is  further  outboard  than  the  one 
predicted  by  the  other  lifting  surface  theories  for  the  flat  plate 
delta  wing.  However,  since  the  experimental  curve  is  for  a 12  per  cent 
thick  wing,  one  would  expect  the  experimental  pressure  peak  to  be 
higher  and  further  outboard  if  the  wing  were  thin,  for  the  reasons  pre- 
sented during  the  discussion  of  Figure  18.  Thus,  although  the  present 
theory  does  not  provide  solutions  identical  with  those  provided  by  the 
other  theories,  the  present  procedure  appears  to  be  competitive  in  pre- 
dicting the  experimental  results  compared  with  the  other  programs. 

In  Figure  20,  the  results  for  the  sectional  normal  force  coeffi- 
cients are  compared  with  those  obtained  by  Nangla  and  Hancock  (1969).^^ 
The  sectional  normal  force  coefficient  is  defined  as 


Cm  (x)  = 


s(x) 


A Cp  dy 


(36) 


J-s(x) 

Again,  the  tendency  of  the  Brown  and  Michael  model  to  overpredict  the 
magnitude  of  the  loading  is  apparent.  Although  the  sectional  force  co- 
efficient calculated  by  the  present  method  decreases  near  the  trailing 
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C^(x) 


Figure  20.  Chordwise  distribution  of  sectional  normal  force 
coefficients  for  delta  wing  (AR=1). 
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edge,  it  does  not  vanish  since  a modified  Kutta  condition  has  been 
applied  which  does  not  require  zero  loading  at  the  trailing  edge. 

To  demonstrate  that  this  program  could  be  used  for  planforms 
other  than  the  delta  wing,  some  runs  were  made  for  the  arrow  wing. 
However,  the  problem  with  this  planform  and  others  is  that  there  is 
little  experimental  evidence  readily  available  for  these  planforms. 

Figure  21  illustrates  the  results  for  t'^e  leading-edge  vortex 
strength  for  an  arrow  wing  whose  planform  is  similar  to  that  of  the 
unit  aspect  ratio  delta  wing  with  the  addition  of  trailing  edge 
sweep  ( A = 76°,  AR  = 1.25  ) at  an  angle  of  attack  a = 14.3°.  The 
same  number  of  collocation  points  for  the  downwash  and  the  same 
number  of  vorticity  modes  were  used  as  for  the  delta  wing  (NC0RD=  5, 
NSPAN  = 5,  NOCM  = 4,  NOSM  = 5).  The  Initial  approximation  for  the 
vortex  location  was  obtained  from  the  delta  wing  being  considered 
previously.  It  appears  that  convergence  Is  more  difficult  to  ob- 
tain for  the  arrow  wing  thari  for  the  delta  wing  as  an  extraneous 
"bump"  appears  in  the  curve  for  the  case  NOFP  = 2,  LMAX  =1.  This 
is  smoothed  over  as  an  additional  constraint  is  applied.  Near  the 
apex,  the  vortex  strength  Is  similar  to  that  for  a delta  wing  of  unit 
aspect  ratio,  as  would  be  expected  away  from  the  trailing  etfge.^ 

I 

The  vortex  position  for  this  arrow  wing  is  plotted  In  Figure  22. 
The  results  for  the  cubic  fit,  (LMAX  = 2)  with  three  no-force  points 
(NOFP  = 3),  are  similar  to  those  obtained  for  the  delta  wing,  indicat- 
ing the  dominance  of  the  leading-edge  sweep  In  locating  the  vortex. 
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Figure  21.  Convergence  of  leading-edge  vortex  strength  for 
arrow  wing  (AR-1.25,  A»76°,  a»14.3®). 


Finally,  the  pressure  distributions  at  two  chordwise  stations  are 
plotted  in  Figure  23.  It  is  to  be  noted  that  the  station,  x = .833,  is 
aft  of  the  root  chord  ( x = .8)  and  consequently,  the  loading  should 
strictly  be  zero  at  both  the  trailing  edge  { y/s(x)  = .2)  and  at  the 
leading  edge  ( y/s (x)  = 1 ) . 


Figure  23.  Loading  on  arrow  wing  (AR*  1.25,  A =76°,  a = 14.3° 
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6.  Revi sed  Vorticity  Modes 

The  results  obtained  for  the  arrow  wing  in  the  previous  section 
demonstrated  the  need  for  a better  representation  of  the  vorticity 
distribution  at  the  trailing  edge  for  such  reentrant  surfaces. 

Problems  with  convergence  in  the  iteration  procedure  were  encountered 
as  the  trailing  edge  sweep  angle  was  increased.  The  reason  for  this 
difficulty  can  probably  be  traced  to  the  form  of  bound  vorticity  chosen. 

The  present  model  used  bound  vorticity  modes  to  feed  the  leading- 
edge  vortices  which  are  circular  arcs  with  their  center  at  the  apex  of 
the  wing  (see  Figure  5).  however,  at  the  trailing  edge,  this  vorticity 
was  suddenly  turned  downstream  as  described  in  Figure  4.  Consequently, 
there  was  a discontinuous  turning  of  the  vortex  lines  at  the  trailing 
edge.  This  was  not  a serious  problem  for  the  slender  delta  wing,  where 
the  choice  of  vorticity  modes  insured  that  the  spanwise  component,  y, 
was  small  compared  to  the  chordwise  component,  <5,  at  the  trailing 
edge.  However,  as  the  sweep  angle  of  the  trailing  edge  was  increased, 
a sharp  kink  developed  in  the  bound  vorticity  at  the  trailing  edge  due 
to  the  nonzero  component,  ^2*  which  fed  the  leading-edge  vortices. 

No  control  points  were  located  at  the  trailing  edge,  so  no  singularities 
were  encountered  in  the  numerical  calculations,  but  such  a discontinuity 
was  a potential  source  of  trouble. 

An  effort  was  made  to  develop  a better  modal  description  of  the 
bound  vorticity  which  feeds  the  leading-edge  vortices,  i.e.,  Y2^hid  62 
The  desired  conditions  to  be  satisfied  by  these  vorticity  components  on 
the  right  half  of  the  wing  are 
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Y2(Xj£(y).y)  = 0 


(37) 


= -s  (38) 

Y2(x^^(y),y) 

where  Equation  37  guarantees  that  there  is  no  kink  at  the  trailing 
edge  and  Equation  38  insures  that  the  vorticity  leaves  perpendicular 
to  a straight  leading  edge.  It  is  to  be  noted  that  symmetry  conditions 
dictate  that  even  and  6^  is  odd  in  the  spanwise  variable. 

An  attempt  was  first  made  to  determine  vorticity  functions  which 
satisfied  these  conditions  in  the  physical  (x,y)  plane.  However,  that 
approach  failed  to  provide  a solution,  and  the  problem  was  then  con- 
sidered in  the  transformed  (9,n)  plane.  (See  Equation  5 for  the  co- 
ordinate transformation.)  Basically,  in  the  transformed  plane,  the 
leading  edge  of  the  planform  corresponds  to  the  chordwise  origin, 

• = 0,  and  the  trailing  edge  corresponds  to  the  chordwise  maximurn, 

6 = TT. 

The  two  vorticity  components,  Y2  and  62,  can  be  written  in  the 
following  form. 

NOCH 

9,9,  (n.q) 

NOCM 

q-l 


Then,  from  the  continuity  of  vorticity.  Equation  2,  the  two  functions 
can  be  related  by 


1 

IT 


39 

Jl 

3n 


c{n)  sinede 


(40) 
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Assuming  a form  which  satisfies  the  boundary  condition  at  the 
trailing  edge  and  is  nonzero  at  the  leading  edge,  let 


g^  = cos  0/2  f(n,q)  (41) 

For  the  arrow  wing  planform  being  considered  presently,  the  local 
chord  on  the  right-hand  side  is 


c(n)  = (1-n  ) 

where  c is  the  root  chord  nondimensional ized  by  the  maximum  length. 
K 

Then  Equation  40  becomes 


= 6?  ^ [3COS0/2  + cos  30/2] 

1 3(4-3cJ 

j f(n,q)  [ —z — — cose/2  + cos  30/2]  } -g(n,q)  (42) 


where  the  function,  g(  n.q),  is  a function  of  integration. 
Using  the  identity 

30  3 

cos^  = 4cos  0/2-3COS0/2 


this  can  be  rewritten  as 

cose/2  +cosV2 

^ I 

To  determine  the  function,  f(n,q),  it  is  necessary  to  apply  the 
boundary  condition  at  the  leading  edge.  Equation  38. 


Sx  = 


R 

3s 


^In  +<'(n,q) 


|-g(n,q)  (43) 
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3?  |2|^  0-^)  "-rf 

f(n.q) 


3-2Cr 


-s 


(44) 


This  provides  the  following  differential  equation 


3f  , 1 


J{l-n)cR 


3(s^  + 1)  -2cc 


The  solution  of  this  differential  equation  is 


-1 

f(n.q)  = c{l-n)  “r  + 


3s(l-n) 


Aish.  u 

2C|^ 


■n 

^ (1  -n  ) 2 Cp 


g(n,q)  dn  (46) 


where  C is  a constant  of  integration.  In  order  to  obtain  a general 
modal  description,  one  must  allow  g(n,q)  to  lie  a complete  set  of 
functions.  The  constant,  C,  Is  chosen  to  be  zero,  while  the  following 
form  is  chosen  for  g(n.q)  to  simplify  the  Integration 

g(n.q)  “ (47) 

Then,  integration  of  Equation  46  yields 

2cR(q+l)  -3(s^  + 1) 


f{n,q) 


(48) 


Therefore,  the  vorticity  functions  become 


g - y—  cos  0/2 

^ 2c^(q+l)  -3(S^1) 

(2q-l)  Cj^cos  ^0/2  + 3(Cp-l  )cos0/2 

-1 

2Cp(q+1)  -3(s^+l) 

These  new  representations  are  used  to  replace  the  Y2»  '^2  ‘^°f’'t'“ibutions 

in  the  previous  calculations.  They  have  the  advantage  over  the  previous 
‘'unctions  in  that  there  is  no  longer  a kink  in  the  vortex  lines,  as 
now  vanishes  smoothly  at  the  trailing  edge. 

The  programs  previously  described  in  Section  4 have  been  modified 
to  include  these  new  vorticity  modes,  but  time  limitations  have  re- 
stricted the  investigation  with  these  new  modes.  After  several  prelim- 
inary runs  were  made  for  the  unit  aspect  ratio  delta  wing  to  determine 
convergence  and  resolution  factors,  the  following  parameters  were 
adopted  as  adequate  to  describe  the  bound  vorticity  modes.  Five  span- 
wise  and  five  chordwise  stations  (NSPAN  = 5,  NCORD  = 5)  have  been  em- 
ployed, and  three  chordwise  modes  (NOCM  = 3)  and  four  spanwise  modes 
(‘lost'  = 4y  have  been  selected. 

The  planform  considered  was  that  of  the  arrow  wing  employed  by 

O 

Brune,  et  al.  (1975)  to  test  their  lifting  surface  theory  program, 
based  on  finite  element  panels.  The  wing  has  a leading-edge  sweep 
angel,  X = 71.2°,  an  aspect  ratio,  AR  = 2.02,  and  an  angle  of  attack, 

■jL  = 15.8°.  Convergence  for  the  leading-edge  vortex  strength  for  var- 
ious numbers  of  no-force  points  (NOFP)  and  degrees  of  freedom  in  the 
vortex  location  (LMAX)  are  presented  in  Figure  24.  In  comparison  with 
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Figure  21,  which  provided  results  for  an  arrow  wing  using  the  earlier 
vorticity  modes,  it  is  apparent  that  the  new  vorticity  modes  result  in 
much  smoother  convergence.  This  is  true  even  though  a larger  traiing- 
edge  sweep  angle  is  being  considered  now  than  before.  Again  the  modes 
have  been  chosen  to  provide  no  additional  feeding  of  vorticity  from  the 
leading  edge,  aft  of  the  trailing  edge.  Thus,  the  slope  of  the  circu- 
lation strength  of  the  leading-edge  vortex  vanishes  at  the  trailing 
edge. 

The  variation  of  the  vortex  position  over  the  right  half  of  the 
wing  is  presented  in  Figure  25  as  a function  of  the  number  of  force 
points  and  degrees  of  freedom  in  the  vortex  location.  The  original 
forms  for  the  vortex  position  modes  (see  Equation  8)  have  been  used 
and  the  choice,  LMAX  = 1,  corresponds  to  a linear  fit,  while  the 
selection,  LMAX=2,  corresponds  to  a cubic  approximation  for  the  vortex 
position.  The  vortex  position  obtained  by  this  numerical  procedure 
appears  quite  stable  even  with  these  few  no-force  points.  For  the 
cubic  approximation,  the  apparent  tendency  of  the  leading-edge  vortex 
to  align  itself  with  the  free  stream  direction  near  the  trailing  edge 
is  noted. 

Finally,  the  pressure  distributions  predicted  by  the  present  program 

g 

are  compared  in  Figure  26  with  the  results  of  Brune,  et  t.  . (1975)  at 
two  chordwise  stations.  Brune,  et  al.  employed  30  wing  panels,  and  48 
free-vortex-sheet  panels  - each  vortex-sheet  panel  contributed  two 
unknowns  since  both  its  strength  and  orientation  were  originally  unknown  - 
for  a total  of  126  unknowns.  One  station  has  been  chosen  forward  of  the 
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root  chord  and  the  other  has  been  selected  aft  of  the  trailing  edge 
intrusion  to  indicate  the  effect  of  the  Kutta  condition  at  the  trailing 
edge.  Again,  the  differerit  theories  predict  similar  pressure  distri- 
butions at  these  two  stations.  However,  the  present  theory  appears  to 
retain  the  limitations  of  the  Brown  and  Michael  vortex-cut  approximation 
in  that  the  pressure  peaks  are  higher  and  further  outboard  than  those 

O 

predicted  by  the  lifting  surface  theory  program  of  Brune,  et  al.  (1975) 
which  utilizes  a vortex-sheet  representation.  Also,  the  present  loading 
predictions  satisfy  a modified  Kutta  condition  at  both  the  trailing  and 
leading  edges,  and  the  pressure  is  not  required  to  vanish  at  these  points. 
This  does  not  appear  to  be  a serious  problem,  since  the  differences  in 
the  pressure  distributions  from  zero  contribute  only  slightly  to  the 
total  loading  on  the  wing  due  to  the  relatively  large  slopes  in  the 
pressure  distributions  near  the  wing  edges. 

This  concludes  the  section  on  the  revised  vorticity  modes. 

Preliminary  results  are  promising,  but  limitations  in  the  present 
procedure  remain. 
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7.  Conclusions  and  Recormendations 


In  conclusion,  a lifting  surface  program  based  on  the  kernel 
function  procedure  has  been  developed  to  include  leading-edge  vortices. 
The  present  scheme  can  be  generalized  to  arbitrary  planforms  and  to 
include  arbitrary  sources  of  free  vortices,  but  its  use  will  probably 
be  restricted  by  the  computational  effort. 

With  the  present  computer  programs,  results  were  first  obtained 
for  the  delta  wing  of  unit  aspect  ratio.  Comparison  with  experiments 
indicate  reasonable  predictions  of  the  loading  with  the  inherent 
limitations  that  a Brown  and  Michael  vortex-cut  model  imposes.  It 
has  been  illustrated  in  the  Introduction  that  a relatively  small 
fraction  of  the  vortex  strength  (less  than  20  per  cent)  must  be 
incorporated  inco  the  sheet  to  obtain  the  benefits  of  the  Smith-type 
models  for  the  slender-body  problem. 

Results  were  also  obtained  for  the  arrow  wing  to  demonstrate 
the  use  of  the  program  for  more  general  planforms.  These  results 
emphasized  the  importance  of  a better  representation  of  the  Kutta 
condition  at  the  trailing  edge  for  such  reentrant  surfaces,  than  was 
originally  employed.  A simple  bound  vorticity  model  was  first  used 
to  represent  the  vorticity  feeding  the  leading-edge  vortices, 
and  this  vorticity  was  di scontinuously  turned  parallel  to  the  free 
stream  direction  at  the  trailing  edge.  Convergence  difficulties  were 
encountered  as  one  increased  the  sweep  angle  of  the  trailing  edge, 
and  consequently,  an  alternative  bound  vorticity  distribution  was 
developed  to  provide  a smooth  satisfaction  of  the  linear  Kutta  con- 
dition at  the  trailing  edge.  Due  to  time  limitations,  only  a few 
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runs  were  made  with  this  revised  model,  but  better  convergence  has 
been  obtained  for  the  arrow  wing  case  at  least.  Furthermore,  in 
deriving  these  new  vorticity  modes,  a general  procedure  was  developed 
which  should  provide  bound  vorticity  modes  for  arbitrary  planforms. 

In  general,  the  feasibility  of  the  procedure  has  been  demonstrated. 
Furthermore,  an  indication  of  the  cause  of  previous  convergence  dif- 
ficulties with  programs  which  had  attempted  to  satisfy  the  downwash 
and  no-force  conditions  sequentially  was  presented,  using  the  simpler 
slender-body  representations.  These  results  suggest  that  it  is  nec- 
essary to  satisfy  the  boundary  conditions  simultaneously  to  obtain 
convergence. 

Much  work  remains  to  be  done  to  improve  tne  usefulness  of  the 
present  lifting  surface  program.  First,  it  would  be  advantageous  to 
further  reduce  the  computational  effort  required  to  calculate  the 
velocity  contributions  from  the  bound  vorticit,  ihich  feeds  the 
leading-edge  vortex.  Secondly,  it  seems  that  a more  accurate  predic- 
tion of  the  loading  and  the  vortex  position  can  be  obtained  by  a more 
complete  representation  of  the  leading-edge  vortex  sheet.  This  would 
entail  additional  degrees  of  freedom  in  the  orientation  of  the  vor- 
ticity leaving  at  the  leading  edge.  An  additional  no-force  boundary 
condition  on  these  elements  would  have  to  be  imposed  to  determine  their 
orientation.  For  some  purposes,  the  present  vortex-cut  model  may  be 
adequate,  if  the  results  are  used  in  conjunction  with  slender-body 
theory  corrections.  For  example,  one  can  use  the  present  procedure 
to  calculate  the  leading-edge  vortex  location  with  the  limitation  that 
although  the  vertical  position  will  be  accurate,  the  spanwise  position 
will,  in  reality,  be  further  inboard. 
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Another  field  of  interest  would  be  the  application  of  the  lifting 

surface  program  to  wings  of  higher  aspect  ratios.  Recently,  Nathman, 
20 

Norton,  and  Rao(1976)  have  published  pressure  distributions  for  less 
slender  delta  wings  with  aspect  ratios  of  three  and  four  and  for 
some  related  double-delta  planforms.  One  difficulty  with  such  wings 
is  that  vortex  bursting  occurs  over  the  wing  at  lower  angles  of 
attack  as  the  apex  angle  of  the  delta  wing  is  increased.  Also,  at 
rigner  angles  of  attack,  the  vortex  core  is  not  well  defined  and 
is  replaced  by  a turbulent  core  of  vorticity. 

Additional  effort  may  still  be  required  to  model  the  no-load 
condition  on  the  trailing  vortex  sheet.  Presently,  only  the  linear, 
but  not  the  nonlinear,  no-load  condition  is  being  satisfied  on  the 
wake.  This  does  not  appear  to  be  too  serious  in  light  of  the  results 
of  Brune,  et  al . (1975)®  and  Kandil,  et  al.  (1974)^,  which  indicate 
tnat  this  is  a fair  representation  of  the  wake.  Finally,  additional 
work  still  needs  to  be  done  to  develop  the  new  set  of  vorticity  modes 
presented  in  this  report  for  other  planforms.  Questions  of  resolution 
and  convergence  for  this  modal  method  remain  to  be  answered,  although 
significant  progress  has  been  made  for  the  delta  and  arrow  wing  plan- 
forms  . 

The  above  extensions  have  been  suggested  by  the  present  investi- 
gation, and  their  successful  implementation  would  greatly  enhance  the 
versatility  of  this  three-dimr.iiional  lifting  surface  program  which 
includes  leading-edge  vortices. 
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APPENDIX  A 


Evaluation  of  Upwash  Integrals 

The  second  and  third  integrals  in  Equation  13  will  be  evaluated 
explicitly  here  for  the  arrow  wing  configuration.  For  arbitrary  con- 
figurations, one  integration  will  be  easy  to  perform,  but  the  second 
integration  may  then  have  to  be  performed  numerically.  This  should 
not  present  any  difficulty,  as  the  singularity  will  appear  as  a Cauchy 
Principal  Value,  which  can  be  handled  by  a variety  of  techniques. 


The  second  integral  in  Equation  13  becomes 


J_ 

4tt 


' Sw 


(x '-x)  dx'dy'  

[(x-x')^(y.y'7?^' 


_ _L  r s J y7s(l-c^)  + c^ 

4ti  J ' ^ (x'-x)  dx*  dy'  (A.i) 

s [{x-x')^  + (y-y’)2  ] 

where  s is  the  semispan  and  c^  is  the  root  chord,  nondimensional i zed 
by  the  chordwisc  length.  Carrying  out  the  integration  and  retaining 
only  the  finite  part  of  the  integral  yields 


B = 
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sinh 
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- sinh 
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The  remaining  integral  can  be  evaluated  similarly. 


(A. 2) 
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These  results  reduce  to  those  for  the  delta  wing  case  when 
c^  = 1 , and  are  then  equivalent  with  results  obtained  by  Nangia  and 
Hancock  (1968)^^,  within  a few  sign  errors  which  appear  in  their 
report. 
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APPENDIX  B 


Newton's  Method  for  the  Slender-Body  Problem 


This  appendix  expands  the  description  of  the  use  of  Newton's 
method  for  the  slender-body  problem  provided  in  the  section  on  the 
Numerical  Procedure.  Originally,  Newton's  method  was  used  solely 
to  determine  the  vortex  location.  Later,  it  was  employed  to  deter- 
mine the  vorticity  distribution  on  the  wing  as  well. 

The  flat  plate  delta  wing  problem  under  the  restrictions  of 
s'ender-body  theory  and  conical  flow  was  solved  by  Brown  and  Michael 
(1955)^,  This  problem  can  be  formulated  in  the  complex  plane, 
oj  = y + iz  (see  Figure  B.l)  as  the  complex  potential  W,  due  to  a 
flat  plate  perpendicular  to  the  flow  and  a pair  of  vortices. 


UM 


-ir 

TT 


ia  w^-1 


(B.l) 


1 

^'■■ere  all  quantities  have  been  nondimensional ized.  w represents  the 

1 

complex  vortex  location,  u = y + iz  , and  ’w  represents  the  complex 

1 V V 1 

conjugate  of  . T is  the  vortex  strength  and  a is  the  angle  of 

1 

attack.  The  Kutta  condition  of  finite  velocity  at  the  leading  edge  can 
be  written  as 


2T^a  . 1 ^ 1 

* 2 T V—  2 i ^ 

IV  -1  UJ  -1 

1 1 

This  equation  can  be  used  to  calculate  the  circulation  strength,  r, 
in  terms  of  the  vortex  location.  The  forces  on  the  vortex-cut  combi- 
nation in  the  complex  plane  are 
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w = y+lz 
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Figure  B.l.  Coordinate  system  for  Brown  and  Michael 
slender-body  delta  wing  problem. 
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(B.3) 
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The  details  of  these  derivations  can  be  found  in  the  original  paper 
by  Brown  and  Michael  (1955)^. 

Since  the  potential  specified  in  Equation  B.l  automatically 
satisfies  the  downwash  condition  on  the  wing,  the  no-force  condition 
(Equation  B.3)  provides  the  two  real  equations  needed  to  determine 
the  complex  vortex  position,  o)^  = + iz^.  Unfortunately,  Equation  B.3 

is  nonlinear  in  the  vortex  position  variables;  so  a Newton's  procedure 
was  developed  by  Pull  in  (1973)^  to  solve  this  problem.  A Newton's 
method  is  based  on  a linear  extrapolation  from  some  initial  approximate 
solution  and  can  be  written  in  the  following  manner  for  this  problem. 
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This  equation  gives  an  automatic  procedure  for  obtaining  an  improved 
solution  for  the  vortex  location,  if  the  residues,  F^  and  F^,  and  the 
Jacobian  matrix  from  the  previous  iteration  are  provided.  The  new 
vortex  location  is  obtained  from 
y, (old)  + Ay„ 


y^  (new) 


Zy  (new)  = z^(old)  <■  Az^ 


(B.5) 


The  derivatives  for  Equation  B.4  can  be  obtained  from 
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This  procedure  provides  convergence  to  the  stable  configuration 
in  approximately  three  iterations  if  the  initial  approximation  is 
within  10  per  cent  of  the  semispan  of  the  final  position.  Unfortunately, 
the  three-dimensional  problem  is  more  complicated  than  this,  and  some 
unexplained  difficulties  were  encountered  when  a Newton's  procedure  was 
developed  to  find  the  vortex  location  in  the  lifting  surface  problem. 

In  an  effort  tc  determine  the  cause  of  the  difficulties,  the  slender- 
body  problem  was  developed  in  a manner  analogous  to  the  three  dimensional 
one. 


The  problem  was  formulated  in  the  physical  y,z  plane  and  the  wing 
was  replaced  by  its  bound  vorticity  representation.  The  ojwriwash  con- 
dition was  no  longer  automatically  satisfied  and  could  be  written  as 
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the  integral  in  Equation  B.7  can  be  done  analytically  and  the  unknown 
a^'s  can  be  obtained  from  a simple  matrix  inversion  by  chosing  more 
collocation  points  at  which  the  downwash  condition  is  satisfied  on  the 
wing  than  the  number  of  unknown  modal  coefficients,  once  a vortex 
position  has  been  assumed. 
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Now  the  Kutta  condition  at  the  leading  edge  is  automatically 
satisfied  by  the  loading  functions.  The  forces  on  the  vortex  become 

1 


6/rdy'  1 


0)1 -y 


-1 


0)i+0ji 


— )+  2o),-1 


(B.ll) 


Originally,  an  attempt  was  made  to  satisfy  the  downwash  condition 
(Equation  B.7)  and  the  no-force  condition  (Equation  B.ll)  sequentially 
in  the  manner  of  Nangia  and  Hancock  (1968)^^.  An  initial  vortex  posi- 
tion was  assumed  and  the  downwash  condition  was  applied  at  enough 
points  to  find  an  initial  vorticity  distribution  provided  by  the  a^'s 
and  r . This  distribution  was  then  introduced  into  Equation  B.ll 
which  could  be  used  in  conjunction  with  Equation  B.4  to  obtain  a better 
approximation  for  the  vortex  position.  After  the  no-force  condition 
was  satisfied  by  movin^  the  vortices,  the  downwash  condition  was  no 
longer  satisfied.  Thus,  the  procedure  sequentially  updated  the 
vorticity  coefficients  and  the  vortex  position  in  an  effort  to  satisfy 
both  the  downwash  and  the  no-force  conditions.  However,  as  mentioned 
in  the  section  on  the  Numberical  Procedure,  this  scheme  failed  to 
converge  as  the  procedure  oscillated  between  the  true  solution  and  a 
false  solution  where  the  forces  vanished,  but  where  the  downwash  con- 
dition was  not  satisfied.  As  a result,  convergence  was  not  obtained. 

Therefore,  the  decision  was  made  to  attempt  to  satisfy  the 
downwash  condition  and  the  no-force  condition  simultaneously  by  a 
Newton's  procedure.  One  obtains  the  following  iteration  scheme  to 
update  the  initial  approximation. 
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(B.12) 
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This  scheme  resulted  in  convergence  for  the  sample  case  being  considered 
of  the  unit  aspect  ratio  delta  wing  in  approximately  eight  iterations 
for  an  initial  location  of  the  vortex  within  10  per  cent  of  the  semispan 
of  the  final  solution.  Details  of  the  rate  of  convergence  for  this 
problem  were  presented  in  Figure  12. 

Due  to  the  success  of  this  procedure  in  the  slender-body  problem, 
a Newton's  method  has  been  developed  for  the  lifting  surface  problem. 
However,  success  is  not  guaranteed  as  the  three-dimensional  problem 
involves  a great  many  more  variables  than  the  slender-body  problem. 

This  additional  complexity  will  result  in  slower  convergence  rates  and 
may  cause  additional  difficulties  as  well. 
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APPENDIX  C 


Listing  of  FORTRAN  Programs 

This  Appendix  consists  of  the  primary  programs  described  in  the 
report.  The  listings  are  documented  by  comment  cards.  For  additional 
details,  see  the  section  titled  "Program  Description"  in  this  report. 

All  coding  is  in  FORTRAN  IV  and  the  programs  were  run  on  the 
IBM  370/168  at  M.I.T.  Approximately  20  iterations  of  Program  V can 
be  performed  in  one  minute  of  CPU  time  for  the  following  choice  of 
parameters:  three  no-force  points  (NOFP  =3),  two  degrees  of  freedom 
in  the  vortex  position  (LMAX  = 2),  five  chordwise  and  five  spanwise 
collocation  stations  (NCORD  = 5 , NSPAN  = 5),  four  chordwise  modes 
(NOCM  = 4),  and  five  spanwise  modes  (NOSM  = 5).  The  choice  of  these 
parameters  should  be  dictated  by  adequate  resolution  in  the  final 
answer. 

Duplicate  subroutines  have  not  been  listed.  Duplicate  sub- 
routines are  generally  listed  with  Program  V.  The  exceptions  are  the 
function  subprograms  B and  XLE  for  Program  IIIA  which  are  listed  with 
Program  I. 


Pro3[r^m_  I 

The  following  listing  for  Program  I includes  Program  I 
and  the  subprograms  ASINH,  A2,  A4,  B,  B1 , B2,  B6,  IGWW,  and 
XINTGR. 

Program  I calculates  the  downwash  coefficients  due  to 
the  bound  vorticity  which  feeds  the  leading-edge  vortices. 

The  output  from  Program  2 is  used  by  Program  IIIA  to  calculate 
the  initial  approximation  for  the  vorticity  distribution  and 
is  used  by  Program  V to  calculate  the  downwash  residue  on  the 
wing. 
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C PPOC'tAM  I 

C 

C CALCUIATTS  DOWNWASH  CnCFFlClENFS  OUE  TO  BOUND  VO-^riCIfy  WHICH  FEFOS 
C LFAOING-rOCC  VORITICFS 

C 

C INPUT  NCO'^D,  NSP*N,  S.CR  2110  2flO.^ 

C INPUT  NQCH.Jl  2110 

C 

C PRIMApy  OUTPUT  CWW 

C 

C NEED  FUNCrinNS  Al  . ^2•^<>•AS,  R I .P?  B6,  CVQRT  t AS  I NH,B  t XLE 

C NEED  SUOROUTINES  BLOCK  DA T A •COLPT , I CWW  •XtNi&R 

C 

dimension  XPTIS) ,VPT|S),COEFf I25*S), 
CSSWL(5)»$CW2(S).S^M)(SI,S;;w<>ISI,SCW5(S1  •SGn6(5) 

COMMON  XP| ,YPJ,S.M,MP/PLAN/C«  / CAUS/CI 24 I • W I 2A J /MODE S/NOCH 

EXTERNAL  A1  ,A2,A<i.  AS.Bl«e2iBS.A6«66 
C 

C INITIALl/r  variables 

DATA  COEFF/I2S*0./ 

00  l*»0  JOUMMY  • u,2<. 

WIJDU»’MY|»WI2S  -jnuMMYl 
ISO  GIJOUMMYJ  • -CI25-JOUMMVI 
PI-1.  lAlSRl 
WR|TE(6t9in} 

c 

REA01S,920}  NCORO.NSPAN.StCR 
C 

C NCORO  • NO.  OF  CMQROWlSf  COLLOCATION  POINTS 
C NSPAN  « NO.  OF  SmANWISE  COLlOCAflON  POINTS 
C S ■ SEHISPAN;  NON-0  by  maximum  length 
C CR  • root  chord;  nqn-o  by  maximum  length 
c 

REA0IS,920)  NQCM.Jl 
C 

C NOCM  ■ NO.  OF  CHOROWISE  HQOES 


pcMio'i.n 
PG‘nO‘)''2 
PGM  lOOU  J 
PG''10‘‘04 

PC*-  100''S 
PCM10006 

PGM  1000  r 

PC*-l00O8 
PGMinooo 
PGMIOUIO 
PCM  lODl I 
PCM10012 
PGMIOOI 3 
PCM10014 
PGMIOOIS 
PGM  lOOl 6 
PCM  loni 7 

PCMIOO10 
PGM  10019 
PGHIS020 
PCHI0021 
P&H10022 
PGM  1002  3 
PCM  10024 
PCM  10025 
PCM10025 
PQM  1002  7 
PC*<1C:25 
PGM10029 
PGM  1 00 3 0 
PGM10031 
P&MV00)2 
PCM10013 
PGH10''34 
PGM10035 
PGMIC036 


[ 


C Jl  IS  CONTROL  parameter:  IF  JIM.  NCORO? -NCORO ; ELSE  NC0R02»NC0Rn* I 
WRITE (6,9 70 » NCORO , NSPAN, S ,NOCH,CR 
C 

C CALCULATE  LOCATION  OF  COLLOCATION  POINTS 
call  COLPTINCORO, NSPAN, XPT.YPTl 
IFIJl.EO.l I CO  TO  300 
NCOM02«NCORD*1 

XPT'.NC0R02  1«(XPT  InC0P0MXPT(NCQR0-1)I/2. 

500  CONTINUE 

IFIJl.EO.l ) NCOR02-NCOR0 
WRITE  16,930) 

C 

C DEFINE  LIMITS  OF  INTfCRAllON  IN  S«ANWfSf  DIRECTION 
C C*S  REFTH  TO  LEFT-mANO  side  of  RESPrCIlVE  RTCIOM 

C 0*S  RCFFR  TO  HICMI-HANU  SIDE  OF  RESPECTIVE  REGION 

Cl  «0. 

05-S 
C6  ■ -S 
06  - 0. 

C 

C C/ICULATE  COrrfICIENTS  AT  EACH  COLLOCATION  POINT 
DO  40n  I-I.NC0H02 
00  400  J»1 .NSPAN 
Nl-JM  I-l  I RNSPAN 
XPI-XLE I YMT  r J ) )*BI YPTIJI lAxPTI  1 ) 

YPJ  YPT{J)*S 
C 

C OUTPUT  LOCATION  Of  COLLOCATION  POINTS 
WRITE (6,940)  Nl,XPr(l),YPr(J),XPj 
6TA-.n2 

IE c I : .-xpi ) .1 T ..0?)  rri-i.-xpi 

DI-SPIXPI-.02) 

C?  • 0. 

irilXP|-.02).CT.CR)  C2  • S*l(KPi-.02)-CB»/(l.'CRI 

02  • YPJ-.02 

C3-VPJ-.02 


PCM10037 
POM1003fl 
PGM10039 
PCM10040 
PGM10041 
PCM  1 0042 
PGM10043 
PGM10044 
PGMI0045 
PGM10046 
PC“10n47 
PGM1004B 
PCM10049 
PCM10050 
PGM10051 
PGM10052 
PCMIOT*-  3 
PGM10054 
PGM10055 
PG‘'10'^56 
PGMI0057 
PGMlOOSa 
PCM  I 0059 
PCM10060 
PCH10061 
PC“10062 
PCM10061 
PGM10C64 
PCM10045 
PC«1  0<i56 
PGH10067 
P&M1006B 
PCMI0C59 
PGH10070 
PGM)007l 
PCMlOO/2 
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FONCr  ION  ASINIIU) 


ASINOOOl 

C ASINOO''^ 

C ASINH(/I  CALCULATCS  INVI^SC  HYPCRBOLtC  SINC  ASir{OnP3 

C ASIUOOO^ 

IFI/.LT.-IO.l  CO  TO  ?0  ASIKOnoS 

ASINH  ■ ALOGI Z«SOR1 11 11  ASIN0006 

RCTUHN  ASIN0007 

C USF  EXPANSION  fQKM  f ASINH  FOR  LARGC  NFCATIVC  VALUES  Of  I ASIN0008 

20  ASINH  ■ AL0Clll./«A.*Z*Zl-l.l/2l  -.693147  ASINOnOO 

RETURN  ASiNOOlO 

END  ASINOOU 


C 

C 

C 

C 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  «2(VI  0001 

0002 

A2(Vl  PROVIorS  initial  INTFCHATIUN  point  in  X DIRECTION  IN  REGION  2 0003 

ARROW  WING  CONFIGURATION  OOOA 

OOOS 

ARGUHENT  LIST  0006 

V:  SPANWISE  coordinate:  NON-0  OV  NAXIMUN  LENGTH  0007 

0008 

COWMON  XPT ,VPT ,s  |N,N  0009 

AT  • XPT-.02  0010 

RETIMN  0011 

END  0012 

00!  3 

• *•••••• «««f 001  A 

0015 

FUNCTION  AAIYI  0016 

001  7 

AA(Y)  PROVIDES  INITIAL  INTEGRATION  POINT  IN  X DIRECTION  IN  REGION  A 0018 

ARRCW  WING  CGNF IGUMAI ION  0019 

0020 

argument  L 1ST  002  I 

y:  SPANKiSf  COORDINATE;  NON-0  BY  MAXIMUM  LENGTH  i'  \»  2 

00?  3 

COM*''".  xPI  .VPI  ,StM,N  002A 

ir  I Y-s»i xPT- .02 n i0tio,20  0025 

10  AA  • IPT-.02  0026 

RETURN  002  7 

20  AA  • V/S  0028 

RETURN  0029 

END  0010 
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fUNCTl 

ION  eis) 

Onoi 

c 

ono2 

c 

Bl'ji  CALCULATES  LOCAL 

chord;  NON-0  by  MAXIMUM 

LENGTH 

ooni 

c 

ARROW  WING 

CCNFIGURAT ION 

oo^<» 

c 

OO'^S 

c 

arcuhcnt  list 

0006 

c 

S:  SPANWI 

ISF.  COORDINATE:  NON-0  QY 

SEMISPAN 

0007 

c 

0008 

COMMON  /PLAN/  CR 

0009 

8 » CR*I 1 .-SI 

0010 

RETURN 

001  1 

END 

00  12 

c 

OCl  3 

c* 

» • • C 0 1 <• 

c 

OOlS 

function  XLE(S) 

0016 

c 

001  7 

c 

XLEISI  CALCULATES  LOC^TICN  OF  LEADING  EDGE;  NON-0  6T  MAXIMUM  LENGTH 

0018 

c 

ARROW  WING 

CONFIGURATION 

0019 

c 

0020 

c 

ARGUMENT  LIST 

0021 

c 

$:  SPANWISE  COORDINATE:  NCN-D  BY 

SEMI  SPAN 

0022 

c 

0023 

XLE  « S 

002A 

RETURN 

0025 

END 

0026 

FUNCIICN  BUYI 

OftOl 

C 

0002 

c 

BUYI  TrovIOFS  f INAL  INTCCRATION  POINT  IN  X DIRECTION 

IN  REGION  1 

0003 

c 

APRC/  WING  CONFIGURATION 

OOOV 

c 

00C5 

c 

ARGUMENT  LIST 

0006 

c 

Y:  SPANHISE  COORDINATE:  NQN-0  BY  MAXIMUM 

LENGTH 

0007 

c 

OO'^B 

COMMON  XPT#YPT,StM,N  /PLAN/CR 

0009 

B • Y*<l.-CRI/S  • CR 

0010 

IF  IB.CT.I  XPT-.02n  e-XPT-,02 

001  1 

Bl  - 6 

0012 

RETURN 

0013 

END 

OOIA 

c 

00  IS 

c* 

»•••  0016 

c 

0017 

FUNCTION  B2IYI 

nc!8 

c 

0019 

c 

B2(y|  PROVIDES  FINAL  INTCCKATICN  POINT  IN  X DIRECTION 

IN  REGION  2 

0020 

c 

ARROW  WING  CONFIGU'UTIGN 

0021 

c 

0022 

c 

ARGUMENT  LIST 

002  3 

c 

Y:  SPANWISE  COORDINATE;  NON-0  BY  MAXIMUM 

LENGTH 

002A 

c 

002S 

COMMON  XPT.YPT.S.M.N  /PLAN/CRfCTA 

0026 

fi  • Y»(|.-CRI/S  ♦ CR 

002  7 

IFIB.GT.|XPT^.02II  0 • XPf#.02 

on?a 

IF  tn.GI.l.l  B«l. 

on.’’ -I 

K?  - n 

no  10 

RETURN 

00  u 

END 

0n32 

c 

00  3 1 
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c 

FUNcriON  ft6iyi  00^* 

c 00'^ 

C B6IVI  PAOVIOrS  FIN«L  INTFGRAflCN  PCINT  IN  X OIRECTIUN  IN  REGION  6 0(M8 

C ARHCh  WING  CONFIGUHAf  IQN  0^^*^ 

Q 00^0 

c ARGUMENT  LIST  00^1 

C v:  SPANwlSE  COORDINATE:  NON-D  BY  NAXINUM  LENGTH  00h2 

t 00^3 

COMMON  XPT.VPT, StM,N  /PLAN/CR  00^^ 

B6  > -Y*ll.-CRI/S  ♦ CR  0045 

RETURN  0046 

END  0047 


C 

C IGWW 
C 
C 
C 

c 

c 

c 

c 

c 


EROUTINE  IGHWlCtDtAtBtSCWH) 

C4LUCLAr(5  OOUNWASH  integral 

ARGUMENT  LIST 

ct  LOWER  LIMIT  or  integral 
0?  UPPER  LIMIT  Of  integral 

a:  ruNCrifjN  OCSCRIRING  LOWER  LIMIT  OF  INTEGRAL 
e:  FUNCMOi  OtSCRiOINC  UPPER  LIMIT  OF  INTFCRAL 

scum:  integrals 


COMMON  XPT .VPT ,S fMOUM.MPOUM 
C0MM0N/CAU5/CI?4  |,Wl?4|/MOOESrNOrM 

DIMENSION  SGWWI5I •ENTCDI  9I,SUMI  5)»GV0R5I3I 


C 


ENTC4I X.VI • I XOIFF*  U*CVORe-XPTRCVORl  !♦ 
CYOIFf  • I - Tr*CVUH2*  YPr*CVORl  I l/ATMIRO 


C 

PI  • 3.  ISIS')! 

Z-1  .E-9 
C 

C INITIALIZE  SUMMATIONS 
00  10  MQM  iNOCM 
M HO-  I 

ENTCO|M01»0.0 

SUM(M01»0.0 

CVORSIMOI>GVOKT(M*XPr,VPT,SI 
10  CONTINUE 
C 

C DO  SPANWlSE  INTEGRAL 
DO  ZOO  J-l,Z4 
Y*( ID-CI«GIJI*D»CI/Z. 

BV«BIY) 

AV-AIVI 

AP-BV-AY 

BP«BY«AV 


IGWwOOOl 

ICMWOOO? 

IGWW0003 

IGWW0004 

IGWU0003 

IGWW0006 

1CUW0007 

ICwwoons 

icwv;0009 
(CWWOOIO 
IGWWOOl 1 
IGWWOOlZ 
IGUW0013 
IGWW0014 
ICWW0CI5 
IGWUOOI6 
IGUWOOl 7 
ICWMOOl 8 
IGwwnoi9 

icwwoozo 
icwwoozi 
IGWWOOZZ 
IGMWOOZ3 
ICWW00Z4 
ICWW00Z5 
ICWW00Z6 
ICwwon; t 
ICWwOn?8 

iGwv,'oo;9 
ICWWOOO 
(GwwonTi 
tGWw003? 
iGwwoo  n 
tGwwn<))4 
IGWmOO  15 
IGWWOO  )6 
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c 

ICWk^OO  ^ 7 

c 

DO 

CMORDWISF  INTFCRAL 

1 GWwOO  Ifl 

00  100  I-1.2A 

1 CWUOO  IN 

X»(AP*CI I )*0PI/2- 

I Gw^-no'.o 

xuiFr*x-xnr 

iGwv,n?<»i 

vnirF«YPr-Y 

ICHWOO*-? 

AfHlRO»XOIFF«XOIFr*yDirF*yOIFF^2*2 

ICWW0f)9  3 

ATHiR;)>AriuRo*soRr  ( atmiroi 

IGHWOn^-A 

DO  AOO  MJ*l,NlJCM 

ICWWO'J'tS 

ICWU00'.6 

GVORl«CVOPSlHO» 

ICWW009  J 

CV0R2*GV0RT|m,X.Y.SI 

iGwwoo'.a 

ENTGni  MOI-ENTGOI  NO)*FNTCA|  X»Yt PW( t ) 

1GWW0099 

AOO 

CONTINUE 

TGWwOnSO 

too 

CONTINUE 

TGWWOOSI 

DO  300  MO«l,NOCH 

TCWW00S2 

SUH(  MO)>SUM(  HOMENTCOt  H0)*W|J)*AP 

IGWv-0053 

ENTGDI  MQI-O.O 

ICWhOOI^ 

300 

CONTINUE 

I&WWOOSS 

200 

CONT INUF 

ICWW0056 

CONST- (0-C I/C  16.PPI  I 

I GwwOC*'  7 

DO  500  MO*liNOCM 

IG"«0038 

SGWW(MOI*CONST*SUH(  HOI 

IGn..03‘‘'9 

SOO 

CONTINUE 

1 GWW0060 

RETURN 

IGWW0061 

ENO 

IGWW0062 

SUBROUTINE  XlNTCRfCNTC^^ENTC;)) 

c 

C KINTCR  CALCULATfS  TH<’  •SINCUIAR*  CONTRlBUflON  TO  THf 
C OOWNWASH  INTECRM 

C ARROW  WIN'  Cnuf ICUftATfON 

C 

C ARCU^^eST  LIST 

C EnTC?:  SPANW|S€  VO*TlCITV  COMPONENT 

C 6NTC3:  CHOKOWlSE  VORIICITY  C0*<PDN€  NT 

C 

COMMON  XP T , YP T , S, M,N  /PLAN/CR 
FAcn  • A*$is*iCR-xpn  -Ypf*n.*cRn 
FACT2  • S*ICR-XPn  ♦YPT*a.-Cftl 
ISINC  • 1 

IF  iAn5iypT«(  u-cp » - s*tCR-xPTn.ic..ooon  isino  • o 

IF  USING. EC. OJ  TfRMl  . AL  OCI  I S*YPT  )/VPT  ) 

IF  I ISINC. EO. 01  CO  TO  200 

TFRMl  • ASINM  HS*(S*yPri  * 11  .-CR  » • I I . -IP  T M / F AC  T 1 1 
C -ASINHI  ( S*YPT  * ICR-*PTI*f  I.-CRM/PACTII 
200  CONT  iriUF 

TfRM?  - ASINHI IS*IS-VPT)  ♦ U . -€«  ) • It . - APT M /F AC T 2 » 

C -ASINMI  (-S*YPf  * U.-CRI  •ICR-XPTn/rACT?l 
TCRMT  ■ AS  INIM  (S*I  VPT*S  IV'  U,  -XPT  M/l  S*XPT  ♦YPT  M 
C « ASINHII XPT- YPT*S I/I S*XPI ♦ VPIII 
TERM^  - ASINMI  IS*<S-YPf»  • U.-XPTM  / I S^IP  T-YPT  ) I 
C •ASINHIIXPT*  5*YPTI  /I$**PT-YPIU 
FACri  • S0RI(S*S*n.-CR)**2» 

FACfZ  • SCRTI I .♦S*5I 

fNTC?  ■ -5/FACTl*l rERMl*TERM2)  •S/FAC Ti* I TE WM  J»T t RMA I 
ENTG)  • -nCR'l.  I/rACM*<HRM|*TrRM21»  1./FACT2*!  lERMT-TERMAn 
RF  TURN 
FNO 


IINTOOOl 
YINT0002 
X I N ro-'O) 

X I N roooA 
XINTOOOS 
XINT0006 

xintooot 

IINT0008 

X I N T0n''9 

XINTOOIO 
UNTOOn 
xiNTomr 
XINTOOI 3 
IINTOOIA 
XINTOOIS 
XINT00I6 
XiNrOOl  ' 
XINT0018 
XINT00I9 
XINT0020 
XINTOn?l 
XlNr0022 
XINr0023 
X iNTOn^A 
XlNTnC25 
XINT0026 
X INT002  7 
XINTOOPB 
xnT0029 
XINTOOIO 
XINT0031 
XINT0032 
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Program  WOW 

The  followinq  listing  for  Program  WOW  includes  Program  WOW 
and  the  subprograms  CHOWS,  KERNL,  MNGLR,  and  PLOT. 

Program  WOW  calculate;,  the  downwash  coefficients  due  to 
the  horseshoe  vortices  on  the  wing.  The  output  from  Program  WOW 
is  used  by  Program  IIIA  to  calculate  the  initial  approximation 
for  the  vorticity  distribution  and  is  used  by  Program  V to  cal- 
culate the  downwash  residue  on  the  wing. 


T - 


PRQGi^AM  MOW 


CALCULATtS  COrFFICieNTS  or  CHOSEN  NODES  Of  TMF  VORTICITV  DISTRIBUTION 
AS  A NUNFRICAL  SOlUTION  OF  THE  INTfCRAL  EQUATlOi  RELATING 
THE  STRErjCTH  Of  HORSESHOE  VORTICES  A*;l)  OOWNWASH 

INPUT  NOST,NmitSPAN  ?I5  FIO.A 

INPUT  NaCP#NOLT,NCP*NP, Jl, J?,CSR  41S,2IS*F1A.9 

INPUT  XOC«SOS,CTA,Ni(2laNMAT  31? 

PRIMARY  OUTPUT  OUR  5EtA.5 

NEED  subprograms  B.  XL  E tCHOWSaFUNCrNtRCRNL  •NNCLR  t PLOT  .BLOCK  DATA 


DIMENSION  NKAl.XVtCt  i ?S  I • YVEC  T 1 2S  t •$(  A1  • Ml  4)  , OMR  ( 25. 2 B I .F  I 5 1 
COMMON  AR(4.5.SI  . &L S ( 5 . 1 0 1 .CM ( 5 1 • TKRUOI • ROC.  SOS . V • 2 • 

C YMN.ZmZ.RSGR.ETA.GAUSXI  10)tP02.N0LT.NCP.NP,N.X.C2  » 

C JI.J?.CSiYMN2.ZM22.CSR  /PLAN/CXNAM 
COMMON  /CAUN/CNt  lO.lOl.HNilO.TOl  /HOOES/NOST  . N1  NC 


C INITIALIZE  VAP  lABLES 

DATA  SO)  . S (4)  .M  l3)/-L.O.O..l.O/ 

P02-1. 5707965 

NINC«“l 


C 

READ  100.  NOST.NtI  n.SPAN 
C 

C NOST  •NO.  Of  SPANWISE  LOAOINC  MOOES 

C NMJ)  -NO.  Of  LECENORE-CAUSS  POINTS  IH  SPANWISE  INTEGRATION 
C IN  REGION  J 

C SPAN  •SPAN 
JS-4 


C 

c 

c 


JS«NO«  Of  INTEGRATION  REGIONS  IN  SPANWISE  DIRECTION 
5 READ  501.  NOCP.NOLT.NCPtHP.Jl.J2.  CSR 


PJTWOOOI 

PW’JWOOfl^ 

Pwnwooo  5 
Pwc:*»onn4 
pw0w00''5 
PW'JWOOOS 
Pwnwooo  7 
pwowoor  8 

PW')W0009 
pHOuon  1 0 
pwawoo  1 1 
pwr)woui2 

PMGwOO  l 5 
pwowoni4 
PUOHOOI  5 
PWOV.00  I 6 
pwn^oo  1 7 
PWOwOOl 8 

PWUW0019 
PWQW0020 
PHOWOO?  I 
PW0W0022 
PMOWOO?  5 
PW0W0')?4 
PWOWOOP5 
PW0v<0026 
PWOWOO?  7 
PH0WOO28 
pwnH00?9 
PWOW0050 
PW3W0O51 
PW3W00 52 
PM0W0O5  5 
PW0W0O54 
PWOWOO  55 
PW0W0056 


C 

C NQCP  •UQ,  Of  COLLOCATION  POINTS  IN  HALF  WING 
C NOLT  iNO«  Of  CHOROWISE  LOADING  MOOES 

C HP  •NO.  Of  CHOROWISE  LCGCNURE-GAUSS  OUAORATuRE  POINTS  IN  MNGLR 
C NCP  •NO.  OF  CHORUWlSf  LEGENORE-CAUSS  quadrature  POINTS  IN  CHOWS 
C JliJ2  CONTROL  OUTPUT}  NORMALLY  0 
C CSR  •CHOAO  TO  SP^N  RATIO 
CXMAX  a CSM«SPAN 
WRITri6.o50» 

NMOOE‘NOST*NOLT 

WRITEI6.91I  SPAN,  NOL T . NOST . NOCP .CSR 

WRirE(6,900i  NI(5l,NCPi4P 
C 

C CALCULATf  COCfflCfENTS  AT  THE  COLLOCATION  POINTS 
00  90  L* I , NOCP 
C 

READ  6.RCC.S0S.ErA.N.N|(21.N|(4l 
C 

C XOC  -fRACTION  Of  CHOTO;  0 AT  H.  l.D  AT  II 
C SOS  -EPACTION  OF  SCMISPAn;  0 AT  HOOT.  l.O  AT  TIP 
C ETA  >Z6TA>SMALL  INTEGRAITON  REGION  ABOUT  SINGULARITY 
C N •SECTION  NU-  INDICATOR 

X«XLEIN.SOSU2.«n(N.SnSI«V0C 

C 

C RLE  •LOCATION  OF  LEADING  EOGEl  REF:  ROOT  SCMICKORD 
C B >tfNSTH  OF  LOCAL  SEMICHORO;  REfsROOT  SfMlCHORD 
I’Sns 

xvE'.ru  I - X 
YVTC’ILI  • V 

iF|SnV«ETA.LT.l. I GO  TO  10 
ElA-l.  SOS 
C NO  region  2 
N1  (21-0 
10  CONTINUE 

IE (SUS*ETA.CT.O.OI  CO  TO  40 
ETA-SOS 


PHOsOO  5 7 
PWOWC^  i8 
PW'iWOC  ^9 
PWTwOOAO 
PWOnOGA  I 
PWD;.0042 
pwnwooA  5 

PM0W004S 
PWQM0046 
pwnw004  7 
PWO'W004  S 
PWQW0049 
PWOrfOOSO 
PWOwOOS I 
PWOWOO' 2 
PWOwODS  5 
PWOhO^'i4 

pwnwooss 
PWUWOO'>  6 
PWOrtOOS  t 
PW0W0058 
PWftWOO*'  9 

PWOhOHSO 
PwOkO'^4  I 
PW0V0062 
pw^.NOt^  5 
PWL) 

PWOWOlIGS 
PHC.hO 
PWOhO  7 
PW0«D>16R 
PWUK0049 
PWO-O J 70 
PWOwOO  f I 
PW0W0O72 
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C NO  MCCION  K 

C 

C OUTPUT  COLlOCAriON  POINT  ANG  AfLAflO  DATA 

MRrTrU.9t01  I •lOC.SOS*rfA,NII2t.Hl(A}«X 
Wl?)-I.O 
ylAI-^0^-T  TA 

c 

C S -LCFT  MANO  LIHIT  OF  iNTfAVAI. 

C M "If  NGIM  or  INTI RVAL 

C 

C initial  HATION  or  iNirCKALS  FOR  CACH  mUCIIAt  I ON  RCCION 
00  Al  I- 1 • JS 
00  At  N1 -1 iNULT 
00  Ai  N^« I ,Nasr 
AAI  I ,NUN?  l•O.0 
A1  CONIINUt 

C 

C 00  INTFGHALS  IN  srCIONS  WITH  NO  SINCULANITV  BF  GAUSSIAN  OUADBATURC 
00  SOO  l-?«JS 
All  NSIP-NM  I : 

C 

C NSIP-NO.  or  INTfCRAL  POINTS 
iriNSIP.EO.OI  CO  TO  Af.O 
00  SO  J*  t «NS IP 

CS-S( I )-lCN(J»NSlP ) >1 •0I/2.AWI  1 1 

c 

C CNIJ.NSIPl  -JTH  abscissa  OF  ICCCNOAF’CAUSS  OUADBATUftE  Clf  OAD€ll  NSIP 
CT-OS 
YHN*Y-CV 
YrN2*tPN*YMN 
«SQP«TNN2 

Nr«WNU«NSIPI«  VI  1 I/I2.PAS0N) 

C 

C MNIJtNSIPI  •JTH  WTC«  rUNCflON  OF  KGFNORr-CAUSS  OUADftATURF 


pwnwoo  T ) 
PWUWOC  TA 
PWOHOOTS 
PWOWOOTA 
PwONOn/r 
PWOMOUTB 
Pwnwoo  T9 
Pwowoo«*o 

PWOwno>1 1 
PW0W00A2 
PtfOwOOA I 
PWQWOO*A 
PHOUOUAS 
PWOW00H6 
PWOWOORT 
PWnwOOHB 
pwnh00‘)9 
punwODoo 

PW0W009t 
PW0W009? 
PWOW009 I 
PWOW009A 
PHOUOO'IS 

PW0W0096 
PWONOOQ  T 
PWOW0098 
PWOW0099 

pwowoino 

PWOWOlOl 

PWOW0102 

PWOwOlO) 

PWOWOlOA 

PWOWOlOS 

PWOwOt06 

PWOWOlOT 

PWOWOlOS 


c 

PMOU0109 

c 

CAICUIATI  VUMIICITY  STKfNGiH 

pwnuoiko 

call  ruNCTNlNUST*CS.F  I 

PWOWOlll 

c 

pwOMom 

c 

00 

CHOROWISr  INTICRATIGN 

PWOwOt 1 T 

CALI  CHOWS 

PUOwOt lA 

00  AS  N-  1 .NOL  T 

pwnwoi IS 

DO  AS  nsf-uuost 

Pwnwoti6 

ARn.N,NSF  )<AR(  I•M,.*4SF1•CRINI•FINSFI•WT 

PWOwOl 1 7 

c 

PWOHOI la 

c 

ARlIfN.NSri  • SUKFACC  iNTFOftAL  IN  PrOfON  1 

PWOWOl 19 

AS 

CONTI  NUE 

PWOH0120 

SO 

CONI INUr 

pwowoi;! 

soo 

C0f4r  iNui 

pwowot;? 

c 

pwnwot2 ) 

c 

00 

INTCGMAL  nr  MANCLER-TYPf  SINGULARITY 

pwawoi?A 

CALI  ►'NGlHlNUSn 

pwowons 

00  60  I • 1 »NMOOE 

pwnwoi;6 

OwR IL I 11*0.0 

PHOWOl?7 

60 

CONTINUE 

PWOwOl  ’8 

c 

PHOWOI ?9 

c 

SUN 

integrals  over  all  regions  or  integration 

PWOWOI TO 

00  70  I -1, NOLI 

PWUWOl  T 1 

DO  70  J-  1 ,N(JST 

PWOwOl T? 

R- 1 •NOL  T* ( J - IJ 

PWQWOl ) 3 

00  70  NS-l.JS 

PWOwOi  lA 

OWRU  »r.  I-OWRI  L|Kt  «AH|NSf  ItJI 

pwnwoi IS 

c 

PWOWOI 36 

c 

DWR  -REAL  PART  OF  GENE  P AL  I HO  AFROOYNAMI  C MFLUFNCC  COEFFICIENTS 

PWUWOl 37 

70 

CGNMNUf 

PWOWOI 36 

90 

CONI INUF 

PWOWOI 39 

N0C0-CNMODt*A|/S 

PWOWOIAO 

c 

PWOWOIM 

c 

OUTPUT  ArKUOVNAHIC  influence  COEFFICIENTS 

PwowniA? 

DO  no  L>i  ,Nncp 

PWOWOLA) 

DO  no  K-1  tNGCD 

PWOUOIAA 
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JMIN. 

Wttlin  (DMKfl,JCU  JC«JHfN*JMAII,L«K 

MO  CCNTINUf 
C 

C Plot  PLANFOPM  AND  COLLOCAfrOM  POINTS 
CAU  P|  Of  I *vf  C T,  vvccr  ,NOC^» 
h rofiPAT  Mr  1 0,4,  M 2 » 

Bl  FUB^'AT  I SL  I S.  f . *1)W«  * , I ?•  IK*  12) 

01  F08*'A  T I I HO  , • AS  • * , f « . ),  IK  • “NO,  OF  CmOWS  L 

COAOINC  H0l'e**.M.1A,*N0.  OF  SPWS  LOADING  NtJOF  • • , I A , / , I K , ‘NO  . OF 
CCOILOCXTICN  PTS» • . I a* IK, •CMOAO  to  span  pat ro** •Fio.fr*/ ) 

100  rc<H*A  r ( 2 1 s*r  I0.4  ) 

501  FOAxATJ  41^,21.',  F14.5I 

<»00  FORMATtlH  ,»|NTrC-ATION  PTS.  IN  AFCION  • 15, 5K,  * I N CH0NS»»*I1. 
C5« , ' IN  knGLR«*  * I 5*  //  I 

910  FOR»‘AfIlM  .‘CnLLOCATION  PT  . • * I A * IM  , •KOC**  . P 2.  A , 3*,  • SOS*  • .F  7. 4 . JX  , 
C*ETA.*,'7.4,IX,*NH2»**,I3,JK,*NHAU',|I,  3K,  ,F7«A  I 

920  POAPAT  ( 5T 14.6,  2X •*UN9* • t2« lX,t2) 

930  PORHATI*  uOUt  calculates  INFLUENCE  COtFFICIFNTS  FOR  OOMNWASH  ON  N 
CINGS  APRIL  27*I977»,//I 
STOP 
ENO 


PWOwOl 45 
pw:)woi  46 

PM(jM014  t 
PwOtaOlAB 
PWTWOl 4Q 

pwnhOMo 
Pw"iwOl I 
PwOmOI 52 
PWTwOl 5 ) 
Ph:-TI  •’.4 
p ■ V - : 1 5 5 

P * , - A 
p to  - ^ 7 
pwa-: lA  9 
Pto?.*01  59 
PtoOnOlAO 
PwQwOlAl 
PWONC: 42 
Pwriwoi  4 3 
PwOk^Ol  64 
Ptf0W0l65 
Pw0tfC166 
PN0W0167 
PWOWOIAS 


subroutine  chons 

c 

C CMOMSi  CVALUATION  OP  CHROWlSE  INTEGRAL  USING  GAUSSUN  QUADRATURE 
C 

DIPT  NS  ION  RTTAI  1 0 I « THPrA (10) tGA 1 1 0), AL 1 5 ) 

COMMON  AR(4,S,5)  «ALSM»lQ)fCR(5)«TKR110)*KOC»$OS,y,2, 

C YMN.ZM/  ,«SCP,ErA,GAUSX(  10),P02,NOLT,NCP,NP,N,X,GZ  • J l»  J2*CS  • VMN2  . 
C ZM/2. CSR  /CAUN/GN(lO,10)fim(lO»lO)  /MOOLS/NOSTfNl NC 
C 

SfM|CO-BIN,CS) 

Hf*KLC(N,CS) 

C 

C INITIALMF  SUNMATICNS 
00  I I -1. NOLI 
CRID-O.O 
1 CONTINUE 

C 

C ir(RSOK-.l  l>0*  THF  INTCCRAl  IS  fVALIMTCO  AS  A SINGLE  INTEGRAL 
ir  (RSOR'O. 1 ) 21 • 3* I 
C 

C NINC  INSURFS  THAT  ALS  IS  CMLY  lAlCULATED  ONCP 
3 ir  (NINC  ) 4,4,  T 
A N(NC»2 

DO  5 l-l*NCP 

BFTA(  I )•( l.-ONI l•NCPII«^02 
ci(i)«-cos(0riA(  III 
no  5 J*l,NOll 

AIS(  J,  I )«SINIOErA|  1 )•FLOATUII/FlOAT|2•Pf2A,»))•A. 

c 

C AlSIJ.n  • LOADING  FUNCIIONS.  REFS  ASHLfV  AND  lAfSOAHL 
5 cmsTiNut 

7 00  6 l•t*NCF 

A CAuSR(  I )•!• (ElF«SCPfCD«f MPCKII II  I 

CAU  KFRNL 
WCHr-P02 
00  20  1*1 ,NCP 


CMDWOOO) 
CMnwpo''  2 
CmuwOOO I 
CHnwn>T^4 
CMDWOOOS 
CHnwooo6 
CHDWOO^  7 
CMowoone 
CHOwOOOR 
CMO**onio 
CMDMOOI I 
CMDwOOl 2 
CHDwOOl 3 
CMDhOOIA 
CHOUOOl 5 
CHOmODI 6 
CHDhOOI 7 
CHOWOOl 0 
CMOmOP I 9 
CHnwOP20 
CHnwoo? I 
CHr)w0022 
r.HUtoOO?  3 
CHDW002A 
C.Mlv.0  5 
CHDW0026 
Cnnwoo?  7 
CH0>.0028 
CMUW0P29 

CHDWOPYj 

CHUWOOU 
CHOwooir 
CHDtoOO  S 3 
CHU'^OO  (A 
ChIh^OOIS 
CHOW0016 
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Cw*WNU.NCPI*5tNtnrTAn  1 |•WCHf 

C MO WOO  ^ t 

on  20  J*I.NQLr 

CHOWOOIO 

cii(  ji-alsiJi  1 inw^rKiif  1 

CMO  WO ‘'10 

20 

COST iNur 

CHOUOOAO 

CO  ro  50 

CHUWOOA  t 

C 

CHnuonA2 

c rm 

RSOft'.KO,  TMr  CHOROWtSC  INffCAAL  IS  COMPUTED  BT 

TWO  GAUSSIAN 

CHUWOOA } 

c 

cuAnRATUHfs  TO  HANDLE  n«c  riHiir  jump  kernel 

AT  *-xi*t-yi*o 

CHUW00A4 

21 

IF  (K  CLf  1 1.  1.220 

CH0w0^a5 

220 

If  HICOU  22.3.1 

CHDwOnAb 

22 

THRO'ARCOM  iriC*S(H|Cf)>Xl/SfHICOI 

Chowooa 1 

R«>l 

CHOW004B 

wCMf*  rMFiO/2. 

CHOWOOA9 

00  21  !•! .NCR 

CHOW0050 

THE  Til  n - n .‘CNt  f .NCP 1 l•r»«D/2« 

CH0W0051 

2) 

GAU5<  1 n«V'(  €1  E «sr  KICO«U  .-COSITHE  TAI  1 M n 

CM0W0052 

CO  TO  15 

CH0W005 1 

2^ 

WCHT*P02'WCHr 

CH0W0054 

R"! 

CMOW0055 

00  2 5 1 • 1 .NCP 

CMDV.0056 

THCTAI  I }<  rHRn»f  1 .-cr4l  l•NCPIIP|P02-THAD/2•  ) 

CHOWOOS  1 

25 

CAUSi  I M ' K - Ul  E*SlMtCO«(  l.O'COSaHCTAt  1 H II 

CH0W005B 

15 

CALI  RfftSl 

CN0W0n59 

00  AO  I • 1 ,^CP 

CH0W0060 

CW*W*4(t.NrP)*5lN|rMftAf|  IIAWCMT 

CHOW006 1 

00  40  J-I.NQLr 

CH0W0062 

ALIJI 'SIN( THCTAI 1 I Af L OAT  CJI  I/FLOAT  I2**t2*j II  •S, 

CHOWOOS 1 

Cft  (J  i AL  ( J 1 ACWATHRI  I l«CAl  Jl 

CMDW0064 

C 

CHO W0C65 

c c« 

• CHOROUtSt  TNTrCAAl 

CHOW0056 

40 

CONf INUF 

CHUW0067 

IFfKl  24.50,50 

CHUW006B 

50 

CONTINUE 

CHDU0069 

60 

RCTURN 

CHOWOOTO 

CNO 

CHDwoon 

SUOAOUTINC  KERNl 

RERNOOOl 

C 

RERN0002 

c 

KERNi:  rVAidATUiN  OF  KCRNEI  FUNCTION  FROM  S T t AOY . NON-PL  A NAR , 

RERNOOO 1 

r 

INCOWPaf SSI^LC  LIFTING  SURFACE  TMEOPt.  REF:  ASHLEY  AND 

KCR.I0004 

C 

LANOAHL,  cm.  5 

RERN0005 

C 

RERN0006 

COMMON  AR( 4,5. 51 .Al SI  5.101 .CRISI.TKRI  1 0 1 .1  DC, SOS . V ,2 , 

KERNOOn  7 

C VPN.  /n7,RSQR.ETA,CAUSI1  tOI  tP02,N0LT,NCP,NP,N,X.C/, 

KFRN0008 

C J1  .J2,CS,VPN2.2M/2.CSR 

KCRN00P9 

C 

RERNOOlO 

C 

CAUSA  (1  ) > 1 X 1 

KE  RNOOl 1 

c 

YPN  • Y-Yl 

RERNOOl 2 

5 DO  10  I'l.NCP 

KERNOOl 1 

xHf  .r./.usx  1 1 1 vcsR 

KERNOOl 4 

XNr2»*»'f  •«Hf 

RERN00I5 

R*SOR  T l«S0R*XHC2 1 

RERNOni 6 

C* 1 .0*XNC/R 

KERNOni 7 

TKR(M--& 

KF RNOOl 8 

c 

KERNOOl 9 

c 

TKR  • RIAL  PART  OF  RLHNCL 

KrRN0020 

10  CONTINUE 

KERNOO? 1 

15  RE  TURN 

KERN0022 

END 

KERN0023 
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suflAOuriNr  •tvcmiNO^ri 

c 

C HNCLR:  conniires  PRINCIPAL  VAlOf  OF  A KANOLfR  |•lTC&«AL  W^ICM 
C INvraVFS  A SrNGOLAAirv  at  T«vt.  A(r:  WATKlnSt  nasa  TN  A~A8 

c 

c ARCUMf  NT  1.  1ST 

C NOST:  NO.  or  SPANWISC  NOOfS 

c 

Dt^rNSION  0l6)«SW(6>«CRrF(  S I * Al I 5 KF  1 5 ) 

CDMmOS  AR(A,8,S}.ALS(S. 101  •C8IS)»rKA| ioi,ioc«$os,  v« 

C VMN,/MZ,RSCA.Fr  A.CAUSkf  1 0 I • PO^  tNOl  T « *IC  P.  •*P*N«  X ,0  ^ * 

C Jl.  j;  ,GS,  VHN2«2M^2.CSfi  /CAUH/GNI  IQ«  101  • WNU  0»  10  ) 

C 

00  1 t-UNOlt 
CRTCM  )«0.0 
1 continue 

SRA«-2.0 

DATA  SU/l  «.  •72..A<)S.,A99««72.  .1)./ 

C 

C SW  •WCISHTINC  COCFriClfMTS  AT  THf  AfSPKTIVC  INfFCAATlON  POINTS 
oiii-crA 
0121*FTA*2. /3. 

0( )I>CTA/  1. 

OtAl--0( 31 
0(St»“0(?l 
0I6I*-D(  1 i 
C 

C 0(11  • LOCATION  OF  INTCG^ATION  STATTONS  U.IT.T.  T WITHIN  INTERVAL 
C 00  LOOP  SO  COMPUTES  FI  THnUUGH  FT*  EICCPT  FA 
00  SO  J«1 «6 
CS-S0S*0( Jl 
OT-GS 

CALL  FUNCTN(NOSr,CS»Fl 
yMN*V-CV 
VNN2«TMN*YMN 
ASOA'TMN? 


MNCLO'''*! 

MNGi 

HNGLOVU 

MNOiniKTS 
MNGLOOiV, 
MNGI  Of)0  / 
MNr.l  000*3 
mnGI 0000 
MNGlOOlO 
MNGLOni I 
MN'‘.L0012 
MNGLOOl 3 
NNCLOOIA 
MNOlOniS 
MNG10016 
MNGLOOl J 
MNSLOUl 8 
MNGL0019 
MNGL0020 
MNniOU21 
HNGL0O22 
HNCLOO?  5 
MNOLO''?A 
MNr,LOo;s 
HN310026 
MNGLOO?  r 
MNClOO?fl 

MNCL0029 

MNCLPOIO 
MNC10031 
MNSL0032 
Mr4CL0033 
MNCLOO  3A 
MNCIOO'»5 
MNCL0036 


CALL  CHOMS 
DO  AO  L-lfNOLT 
00  AO  k«i.ngst 
W*SW| J) 

AR(l,L.Kl*CAlL)«r(Kl«W*AA(ULtKI 
c AA  • REAL  PART  OF  SURFACF  INTECAAl 
AO  CONTINUE 
50  CONTINUE 

CALL  rUNCTN(NnST,SOS.F I 
TMMAk«ARCUS(1 .0-100*7.0 
C 

C 00  LOOP  100  COMPUTES  FA  AT  Y*  VI 
00  100  1*1 .MP 

THE  TA* ( I .'CN(  I , MP I T/7.ATHHAV 
CW*WN(  1 fMP I vSINI  THE  T A i •TMMAA/7.0 
C 

C CW  • WEIGHTING  TEAM 
C 

C ALIU  • the  Two-n  CMfiRDWfSE  LOADING  FUNCTIONS 
00  70  L- 1 .NCL I 

Al (L)«SINI FLOATI LI*TMrTAIFFlOAT(7*P(E*Ll|PA. 
CRTEd  T-Al  IL)*CW*SKA*CATElcj 

TO  CONTINUE 


C 

C 


CATE  • CHOROWISF  INTTCAAl 
100  CONTINUE 
103  rCTA  • 100. •ETA 
DO  lOS  L-1 •NOLT 
00  lOS  K«l«NOSr 

AA|  UL«KI«  (-1  i60.0«CATf  IL  l•FU)•AA(l•l,K)l/FCTft 


C 

C AAi  FINAL  value  OF  THE  SURFACE  rNTECRAL 
lOS  C0N1INUF 
RETURN 
END 


NNGL003  7 
MSGlOOTH 
MNGLOOT'J 
MNGLOPAO 
MNGlOOAl 
MN'.lOOA? 
MNGL00A3 
MN&IOOAA 
MNGL00A5 
MNOL0OA6 
MNGLOnA  7 
MNGIOLAS 
MN-.LOOAq 
>'-|GLOOSO 
MNMOOM 
MNC100S7 
MNCLO^'S  J 
MNCl OUSA 
MNGl 0OS5 

MNG100^6 
MNGl OOS  7 
MNGLOO50 
MNC10059 
MNG10060 
MNSLOOS I 
MNGL0067 
MNCLOOr.  3 
MNGlOn^A 
MNGIOOAS 
MNGL005N 

Mf^GLOOA  » 

mnslopfa 

“NCL0‘)59 

MNG10070 

MNGL0071 
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sunn  mri'.r  riori«vrcr,vvicr«’<ocp) 
c 

C PLOT  PLOTS  niANrOPM  ANO  CONTHOL  POTiTS 
C 

C ARGU**f  NT  L I ST 

C XVrCT:  CH-MowlSF  COOHniNSTC  ‘lON-D  BY  ftOtlT  CHOPO 

c Ytf^CT:  SPXSwtST  CriOAOINATI;  NON’O  BY  SEMISPAN 

c N'?CPt  NO.  m COLLOCATION  POtMS 

c 

DIMENSION  iVf C Tl ?M .»WFCT|2S>*  NI 1 251 *NY I 251 

|NTCGm*2  A,O.C.L  INI  I tot  I 
DATA  A.D.C/* 

WR1TE(6.<)I0) 

SCALE  • I . • «LC  I 1 • t . I 
DO  n L *1 .NOCP 
I • KVECTCLI  ♦!. 

NIILI  - tNrUOO.*K/SCALf  ♦.If  ♦ I 
NYU  I ’51-  INTI  *^0.  RYVEC  I CL  l*.lf 
30  CONTI. NUr 

s*i. 

DO  100  1*1 ,51 
DO  10  J 1 . tOI 
10  L INM  J I >A 

Ilf  « YLC  I USI  « 1. 

CHO  - B( 1 . Si  *2. 

XTf  ULE  •CHI) 

Nlf  • INTI  100. •fir/SCAlfc  ♦ .11  ♦ I 

NTC  • INI  I 100.*Klf /SCALf  * .11  ♦ 1 
ir  1 I .nE  . 1 . AND.  I .N*  .51  I 0(1  TO  50 
00  20  ISU  P'^iLffNIf 
LINE!  ISTCP1*'J 
20  CONT iNur 
CO  TO  60 
50  CONTUiUf 
LINE (NIFI  0 
LINECNTn^O 


Pioioori 
PLOTOHO? 
PLdTOUU) 
PLOIOOOA 
PLOT0005 
PLOIOOOB 
PLOIOOO? 
PLOIOroB 
PLOrnooq 
PLOrooio 
PLOTOOI I 
PLOroOI2 
PLOTOOI 1 
PLOTOOI A 
PIOT0015 
PLOTOOI 6 
PLOTOOI t 
PLOTOOI S 
PL0T0019 
PLOT0020 
PLOT002I 
PLOTO022 
PLOT0023 
PL0T0025 
PL0T0025 
PLnr0026 
PLOTOO?  T 
PL0r002B 
PL0T0029 
PLOTOO 10 
PLOrOOfl 
PLOTOO 12 

Pioroou 

PL0T0034 

PL0T00J5 

PL0f0036 


60  CONTiNUr  PIOTOOIT 

00  AO  L'I.NOCP  PIOTOOIB 

U (N»(L ».l  0. I I L INE (NX  CL » l-C  PL0T0019 

40  CONTINUE  PL0I0040 

W8nf(6t900l  LINE  PLOrOQAl 

S'S-.n?  PL0F0042 

lOO  CONTINUl  PlOtOO<.J 

900  rOBMitllH  .101*11  *10100*9 

910  rpRH/lK'l  PIOI  or  Pt»NrORR  ANO  CONIROl  POINTS:  NOI  10  SC*Lf'.///l  P10I0095 

RtIURN  PIOI0096 

£ND  PLOTOO* 7 
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Program  IIIA 


The  following  listing  for  Program  IIIA  includes  Program  IIIA 
and  subprograms  X6WGMW,  AXA,  DETERM,  and  PRESS. 

Program  IIIA  calculates  the  Initial  approximation  for  the 
vorticity  distributed  from  the  leading-edge  vortex  location  and 
the  outputs  of  Program  I and  Program  WOW.  The  output  of 
Program  IIIA  is  used  to  provide  the  Initial  vorticity  distribution 
for  Program  V. 


\ 


- 100  - 


oor*r»r»r»onooor*onoonnon 


t I 14 

MI4  CiLCULATtS  VORIICITy  CQIfflCKhlS  »«OH  VORffJt  LOCATION  AND 
OUTPUTS  l)f  PROGRAMS  WQW  ANO  I 

NOTE:  DOMNWASM  POSITIVE  FOR  WtCNAll  UrwASH  POS I T I VE  MENt 

INPUT 

input  KCfj*<D,KSP4N,StNOCM,NCSM,C»  ? I 1 0,f  1 0 . 4 # 2 I 1 0,  F I 0 . 4 

input  AWW.CNb.  SEtA.S 

input  lmax.al^a  is  no. 6 

input  CYVU«.G/WOfi  SE14.S 

PRIMARY  OUTPUT  vmfKiTY  cofFncifNrs: 

fIRST  NQCmynOSM  MOOES  *Mf  HCPSfSMOf  vDRTfA  MODES: 
REMAINING  ART  LEAOINC'EOCE  VORIEX  MODES  SF14.S 

NEED  FUNCTIONS  6 . F W . * Qm T , X I , RCWCMW* *lf 

NEED  SUBRQUt I NFS  At  A ,001 PT •0€ T E RM^OENCT tENC TN.CAUS 1D»P«  ESS 
external  IChGMW.XGwr 

DIMENSION  XPIISI  .YPT I SI ,VK«25I*ATVAI2SI,PRI25,25  •AUWI2S»20I, 

C CMNI?S,SI .COEFf l?S,?S  I 

COMMON  IP(  ,tPJ,S,H,HP/GV0R/CtV0RISI#C7V0RISI/PLAN/CA  /SEC/ZPT 
CCMM(.N/»iOUES/NOCM«NCSM/CONTAl/J2,Jl/VLOC/lHAX  /GAUS/CI  24)»W124I 

C 

00  ino  jouMMy  -i 3.24 

ylJOUHNTl  . WI2S-J0UHMVI 
lOo  ciJouMMYi  • -CI2S-' JouMpyi 

OAT*  COEFf /62S«0.0/ 

PI-3.MIS93 
C ON  WING  7 • 0 
IPT«0. 

WR|TE(6t06O) 

C 

R€AO<S.4SO)  JUJ2.J3.J4 


PGlAOOOl 
P&1X0002 
PO  TAOOO ) 
PC  3 'OOOA 
POTAQOnS 
PC  TA00''6 
PC JAOOOT 
PC  lAOonn 
PCTAmPN 
PCTAOOlO 
PG3A00I I 
PG3A00I? 
PC3A00I  I 
PC5A00IA 
PCIAOOIS 
PG3A001S 
PG  TAOOl 7 
PGTAOdlS 
PGU00I9 
PC3A0070 
PG3A0021 
PG3A0022 
PC3A0023 
PG3A007A 
PG3A002S 
PC3.*.0076 
PG3A002  r 
PC3A0028 
PG5A0029 
PC3A00T0 
PG3AOOM 
PG3*00)2 
PG3AOO)3 
PG3*00)4 
PG3A003S 
PG3A0036 


C 

C Jl  • CCNTRGL  parameter.  IF  J I • U NCC«02  »NCORO ; ELSE.  NC0RD2-NC0R0  * 1 
C J2.JT  ARE  controls;  J2-I  CLLLS  OETERM;  Jl  > I CALLS  ITERATION  PROCEDURE 
C J4  CONTROLS  fUTPUT;  IF  JN.EO.l.  OUTPUTS  INTERMEDIATE  RESULTS 
WRn(l6.vsal  J1.J2.JUJ4 

C 

REAOIS.80OI  NCORO.NSPANtS.NOCM,N05,M,CH 
C 

C NCOflf  • NO.  01  CmOHDmIST  COLLOCATION  POINTS 
C NSPAN  • NO.  Of  SPANhISf  COLLOCATION  POINTS 
C S • SfHl'PAN 

C NOCM  « NC.  or  CmORUmISE  mQOES 
C NOSH  - NO.  OF  SPANhlSr  MOOES 
C CR  - ROOT  CMIIRO  DIVIOCO  BY  MAXIMUM  LENGTH 
WRIT!  ( r.  .R  TO)  NCORD.NSPAN.S.NOCM.NOSMfCR 
NCO«U?*NCCROM 
iriJl.FO.U  NC0HD2 -NCORO 
NOCP*  NC0R02  •NSPAN 
NKOO*NOSM*SCCP 
N*‘Our*N‘''jn»NOCH 

c 

C NGC**  • NO.  or  COLLOCATION  POINTS 
C N'^oo  • '.a.  Of  »-U4SfSMCI  VORTEX  mooes 
C N^'OOT  • total  NU'^ai  R Of  MOOES 
DO  200  IM  ,NOCP 
C 

READ  lS,9nC)  lAWWl  I , JUJ.UNMODI 

c 

C Amw  • DChNwASH  iNrLUtNCr  COCFE  1C  ieftts  from  program  WOw 
DO  2C0  J'  I .NmcjD 
CUE  FT  ( U J U-AWWI  U J ) 

200  CONMNUf 

DO  ?S0  !• 1 .NDCP 
C 

REA0(S«<»20)  fCUNi  t . JUJ-UNCCM) 

C 


PC3A0CU 
PCTAOOU 
PG3A00  n 
PC  140040 
PC3A00* i 
PG3A0042 
PC340041 
PC3A0044 
PG1A004S 
PC  140046 
PG1A004  t 
PC3A0048 
PC1A0049 
PCIAOOSO 
PCIAOOSI 
PC3AOOS2 
PGlAOO'il 
PCIAOCSA 
PCIAOOSS 
PG)A0QS6 
PCIAOOA  7 
PC  TAnose 
PC  )Aons9 
PC1400(.0 

PGIAOOM 

PC  1A0''62 
PCf.OOtJ 
PC  lAOOAA 
PC  lAO-^fS 
rr>  37.007,6 
PC1A0367 
PC1A0068 
Pf.)A0069 
P&U00  70 
PC1A007I 
PC1A0072 
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C Cww  • OOwNhA^H  iNFLUrNCC  COCFFtCICHTS  »tOC«<An  t 

?^0  CONT I SUE 

c 

RFAD(S«01»!  LSAltALFA 

C 

c LHAx  • nnoEK  ct  vrmrEi  Ai>#«o»iMAno«< 

C ALFA  • ASCir  CF  ATtACK  I IN  AAOUNSI 
^INALF  ■ MNIALFAI 
UR  I TC  I 6.')h0)  LMAA,  ALT  A 
C 

C CALCUlATf  COUOCATIOS  Pf)|NTS 

call  COLPT  INC(-R0,SSPAS.  IPr«TPTl 
IF (Jl .EO. n GO  TC  ^00 

XPTINC0R0:i-l*PTlNC0«0»*IPf  (NCOHO-UI/2. 
joo  continue 
c 

AFAD  (^,9?0I  CVVOA.CZVOA 
C 

C CWOR  Anf  COEFFICNfTS  OF  VOATEl  SPANbItSC  LOCATIOH 
C GZVOR  ARF  COEFFICIENTS  OF  VOATCX  VERTICAL  LOCATION 
WRITF(6«A>1t  GYVCK.CZVOR 
C 

C CALCULATFS  location  GF  VQRTCl  AT  X 
CALL  FNCTN(GYVOR«LNAX,i.,TVORI 
CALL  FNCTMG^VOR.LFlAX.I.iiVCRI 
C 

C CALCULATC  CONTRIQUTIQN  FRQN  LEAOiNC-fOCE  VORffl  TO  OOWNWASH 
00  AOO  1*1 iKCORUi 
00  AOO  J«t  «NSPAN 
Nl-J*(  l-l»*NSPAN 

XP|*XLE(YPT|  J)  Utl  YPTI  JMPXPTI  It 
TPJ*YPTIJI«S 
C 

C OUTPUT  LOCATION  OF  CCLLOCATION  MINTS 
WRITE  I6t9<.0)  NUlPtI  1 |«VPr(JI«KP| 

TO|fF«YVOR  ->PJ 


PGiAoo;  1 
PG  ^ ''OO  i<* 
PG  ''0*^  fb 
PZ^^OOJ(i 
PGJAOO  f 1 
PG  UC'i  T0 
PG  MO*)  T"? 
PO-'C.'-O 
pci«‘:''M 
PGl'O's? 
PGUO'®  ) 
PGUO  .R*. 
PG3AOO0S 
PCJAOORfc 
PCTAGOR  T 
Fo  .AOTSfl 
PCJAOO'jT 
PCTAOOqO 
POAQO^l 
PCiAOOO^ 
PCUOO'J  i 
PC3A00'J<, 
PC3AOO'1S 
PC3A009«, 
PG3A009  t 

P03AOO‘J8 

PC3i0099 

PG3AOIOO 

PC3A0ini 

PC)A0102 

PG3A0133 

PG3A0lCfc 

P&3A0105 

PG3A0106 

PG3&Gin7 

PC3A010B 


YSUN»YVOR  ♦YPJ 

KfjIFF*  U'XPI 

YOlFSO*YOirF*YOIFP 

VSUNS0«YSIJP*YSUH 

ISO-/VOR  A/VOR 

TERNI*yOIFSC*ZSO 

TERM^.ySukSCWSO 

c 

C CALCULATE  CONTRIBUTICS  OF  VORTEX  AFT  OF  M •!. 

CwG«w;--(YOIfF/TE«MI*  I U-XOIFF/SORTCTFR«lP*0!Fr*XOIFF1  I 

l#YSU«/TEHH7#U.-*0|FF/SORTnERN2*XOIFr«KO!FF>  M/U.PPI  I 
00  ANO  POM.NCCH 
N»W0-1 

c 

C OBTAIN  CONTRICUTION  FPOH  WAKE  AND  VORTEX  SEGMENT  BEFORE  X 
CALL  GAUSIOI  O.n.SfGwT.XGwT  t 

CALL  GAUSIOI  0.0»  . I 3»CU« XGWGMWI 

GWCFIW  1 •Gw 

CALI  GAUSIUI  . 1 T»  •?S«CW«XCWGNWl 
CWGMWI •CM'PUl  «GW 

call  GAUSIOI  ^S7,GW«XCW&MW} 

GwCHMl^GwOPWlAGW  * 

CALL  GAUSIOI  .S7,l.0tCW«XGIfCNWI 
GWCHwl>GuGPkil«GW 

COEFF  INl.nPOO*NQI-CNWlNltMOtAC»  T*GWGMW|*GWCNW2 
GmCPW7»-1.*CW&NWJ 
A90  CONTINUE 
400  CONTINUE 

IF  I JA.NE.l I CO  TO  SIO 
N0CD«INHUI)1*Al/9 

c 

c OUTPUT  total  DCkNWASH  INFLOfNCC  COEFFICIENTS  IF  DESIRED 
DO  500  1«1«N0CP 
00  500  K*1 ,NOCO 
JNAX-5PK 
JM1N«JMAX>A 


PC3A0lO<) 
PGJAOl 10 
PG3"0n  I 
PG3A011? 
PG3A01 I 3 
pctaoma 
PG3A01 1 5 
PG3A01 1 6 
PC3A01 I J 
PG3AOn8 
PG3A0119 
PG3A0170 
PC3A0121 
PC3AOU7 
PG3A0t  ? 3 
POAOl?*- 
PC3A017S 
PC3A0W6 
PC'-'OI  7 r 
PG3A0178 
PC3A0179 
PC3  AOl  30 
PC3A01 31 
PG3A01 3? 
PC3A0I 33 
PCIAOI 3A 
PG3A0I 35 
PC)AOI 34 
PC3A01 3 r 
PC3A01 <0 
PC3A01 31 
PC3AOIAO 
PG3A0IAI 
PC3A0IA2 
PG)A01A3 
PG3A01AA 
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wa  t rr  ( 6.140)  f COf  Mil  . J)»  J*  JNAI).  IfR 

um  III  ) iCDf  1 1 1 1 • J).  j*jniN«  jMAii*  1 ,r 

soo  coNiiNtir 
^to  C(>NT|Nur 

c 

C CALCUlATfS  VQPlIttTY  COl  r f IC  l(  N1S  A.CO  ftON  ROUflDAIlV  CONOITION 


C SOUAffF  HAIRIX  BY  rOAHfNG  A TBAN^^0SC6A 
CALL  AxAtCCrrr.PR.NOCP.NHQOTI 
If  I jA.Nf  .1 ) r.n  10  160 

c 

C OUTPUT  A TRANSPOSraA  . If  OCSIACO 
UO  ISO  L-1 .NMOOT 

MQ  f T(  1 6,4;0)  (PR  II  .R  I tK-UNPOOn 
ISO  CnNTI^Uf 
160  CONIINUI 

c 

C fix  DOWNWASH.  VRMI.  ON  W t NC 
00  SIO  1*1 .NCCP 
VRI  I)  • -SIRAtr 
510  CONfINUf 
C 

C FORM  A TRANSPIlSf  •OOWNWASM  VECTOR 
on  lAO  KM  •NMOOT 
ATVRIR I «Q. C 
00  lAO  L •! .NOCP 

ATVRIK)*ArvR<K)«COrff  (LtKiPVRILI 
140  CONflNUF 

IF(J4«Hf .1 ) CO  TO  145 
C 

C OUTPUT  A TRASSPCStPOCwKwASH.  |f  DESIRED 
WRI  TF  (6.«)?0)  ( AT  VRI  I » • t•l•NM00n 
145  CONTINUC 

IflNKOOT.NC.NOCPl  GO  TO  110 
C 

C SOLVE  simultaneous  LINEAR  EQUATIONS*  A I • S 


P0(Ani<.5 
PCiAni«.6 
PGUOl*.  T 
P0lA0|4fl 
PG1A0I41 
PG JAOlSO 
PCUOISI 
PC1A0IS2 
PCUOISI 
PC1A01S4 
PC1A0155 
PGU0IS6 
PCIAOIS  F 
PGTAOISB 
PC1A0IS9 
PC1A0160 

PClA0t61 
PG1A0I62 
PGU016) 
P&)A0t64 
PC)A0165 
PC1A0I66 

pcuour 

PC  lA0t68 
PC1A0169 
PCIAOI TO 
PCiAOi ri 
PCiAOi rz 
PC3101 T1 
PCIAOI r4 
PCIAOI T5 
PCIAOI T6 
PCIAOI 77 
PG3A01 78 
PCIAOI 79 

FOR  X PC1AOI80 


call  press  (COrFF*VB*NMOOI*J4l 
C 

C SCLVC  tOUATtON  AT4  K ^ At  B FOR  X 
130  CALI  P«t  SS  I PH  . AT  VR  •NMOnt  • J4» 

860  FORHAM*  PROCHAh  III  A CALCULATES  A, CO;  GIVEN  AWU*CMW:  * vSX, 
C’UPCATFO  APBH  27,19T/*,/) 

8T0  FORHATC  CHOU  COLL  P T S<  * , 1 1 * IX  , • SPNWS  COLL  PI5-**I3*3X, 

C*SFP1SPAN  ’.F  IC.4.  TK.’CMOUS  moocs-*,m,  ix,*spnws  Mooes»**i3* 

C )X.  'CR  f /.<••/  > 

0 80  F0HPAT12HC.F  10.4.?I10,F10.4) 

090  FOHHAri*  THl  VALUES  OF  GWOR.CZVOR  ARtVISFM.SM 
900  format (5f  1 4.6  > 

910  FTjRHM  ( IS.f  10.61 
920  FORMAf  (ST  14.5) 

940  FORMATC  CCLLCCATION  PO I NT  • , 1 1 , 2r  I Z,4 , IX  , * L OC  AL  X«*,  F12.4) 

950  F0HHATI4IS I 

960  FOKHAT ( lHO» 13 , ■ OECHEtS  OF  FREEDOM  IN  VORTEX  LOC  A T I ON  * iSX  • 

C 'ANCLE  or  ATTACK  •*,r7.4»/l 
900  FORMAT  (5E14.St2X«*CUF  •,12*1K«I2) 

STOP 

END 


PCIAOIRI 
PG3A0182 
PCUOIR  3 

PC3A0in4 

PC3A0185 
PC3A01A6 
PCIAOI 87 
PG)AOIB0 
PC3A01R9 
PC1A0190 
PC3A0I91 
PGiA019? 
PClAOini 
PC3A0194 
PC1A0195 
PC3A0I96 
PC3A0197 
PC1A0!98 
PCiA0l99 
PC3A0200 
PC1A0201 
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function  XGWGNWIV  I 

c 

C XCwGmm  CAlCUL*T(S  OOWNWA&H  CONTNieuriON  FROM  BOTH  VORTICES 

c 

C AR&UHfNT  I f ST 

C X<  INTECRArtON  POINT 

C 

COMMON  XPT .VVTtS.H.N 
PI-l.|AlSni 

CGAM>SfN( FLOAT )/;.«P|*X  t 

xgwgmwggam*(fwi  K.YPTi«rHix,-vpT  n 

RETUAN 

(NO 


*G-:OTOl 

«CwGnno7 

xGw  :0  VT  j 
XGw  .000<> 
iGw^rO^TS 
XGWG0006 
XChGOJO  / 
KGwGOTOe 
XG-GOJO-J 

*G--'5'^l  I 
tZmZZZ\2 
XGMGOOl 3 


SimROUTINC  AXAU«etNROW«NCOCI  AIA  0001 

C AIA  000^ 

C AXA  CALCUlAirs  6 ■ A TRANSPOSC^A  AXA  0'''>3 

C AIA  OOOA 

C ARGUNtNT  LIST  AXA  OOOS 

C A)  INPUT  MATRIX  AXA  OOCfc 

C Rs  OUTPUT  MATRIX  AXA  0007 

C NROHt  NO.  or  ROWS  IN  A TO  Of  RROCCSSCO  AXA  0008 

C NCOli  NO.  OF  COCUlWAS  IN  A TO  OF  PROCISSEO  AXA  0009 

C AXA  0010 

C AXA  001 1 

OfMtNSION  A|?9,2Sl,BltSt2SI  AXA  0012 

00  10  l•|,NCOl  RA*  001  3 

DO  10  J-l.NCOL  A«*  OOIA 

Bl  I . J)-0.0  •**  001 S 

00  10  N-l.NROV  AXA  0016 

ni  |,J)-AIN|IMA(N,JI«R(I,JI  AXA  0017 

10  CONTINUE  ***  0018 

return  R**  0019 

end  RRR  0020 
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SUninUTINt  OfTCRMlA.NI 
C 

C DCTERN  CAlCUlATf^  OEtlKMlNANr  Of  COfACfOHS  AS  HAfAU  INOICAfOA 
C 

C ARGUMENT  list 

C A:  MATRtI  TO  RE  TfSIfO 

C Hi  0>.DtR  OE  MATAIl  Of  INTfAEST 

C 

DIMC'ISION  A(?*>,?SI,DUMHT(?S«7St*|f(llf7S)  •OtM?5»2SI 

irR>o 

C 

C USE  dummy  to  PRESfRVE  nRiCINAL  HATAII  AS  SOLUTION  PROCEDURE  IS  DESTRUCTIVE 
on  100  t • I . N 

00  100  J* 1 .N 
100  DUMMY  I I • Jl  'A( I , J) 

MR  HE  <6«<)A0I  ( ( dummy  ( t • Jl  • J-l  .Nl,  l-l.Nl 
RSO  fUKMATI  * The  values  Of  THE  MATRIX  CimENtS  ARE  * 2 1 SE  lA  .5  11 
Ml -N  - 1 
C 

C NOW  01 Vt I OP  PROCESS  fOP  COf ACTORS 
00  800  I - I tN 
00  800  J- I .N 
00  100  ll^l.N 
l?«lt 

irni.Gf.fi  i7«ii~i 
00  100  J1>1«N 
J7«Jl 

Iff J1 .CT. JI  J7> Jt  1 
OUMMyI l7.J?i^A(|l,Jl} 

TOO  CONT  tSUf 

call  mi  G(  dummy,  2S,N1  , I per*  is,  UR  I 
C 

C MFC  IS  IRM  SLMATH  SunROUflNE  TO  PERFORM  tU  OCCOMPOSI T ION  Of  MATRIX 
C 

c argument  list  MFG(A«N«N*IPCR*IS*UR> 

C 


Of  T^^OtJOl 
Of  rroo.17 
DETTOOOl 
OETrOnOA 

DErrooos 

OETTOOOA 
OETroooi 
oErropos 
OE  If  com 

DE  rrooio 

DE  TfOOl 1 

or  rrooi? 
ocrrooi  i 
DE rrooi A 

Of Tf 00 IS 
OETf 0016 
DC  rrooi r 
DCrroois 
DETr0019 

ocrtooco 

OCTfOO?! 
DCTr0077 
DETFOO?  1 
OFrroo?A 
D£rC007S 
0ETfOO76 
DErroo?; 
0Erf0078 
OErfoo;9 
OETtOOlO 
dfteooti 

OETf 00)2 

DCrroo)) 

oetiooia 

DETIOOTS 

DEIC00)6 


C a:  INPUf  MArRIK  TO  RE  fACTOREO 

C M:  ORur>(  or  matrix  in  uimensioi  statehent 

C N:  NUMfiJRar  SIMUllANfOUS  fCUATIOMS 

C IPER:  permutation  yfCTOR  GENfRATEO  FOR  MSC 

C is:  sign  cr  OtrrRMINANT 

C I(R:  error  INDICATOR 

C 

01  T n , J I • FLOAT  f I s I 
00  Aon  K- i ,Ni 

orrii.ji-  ouhhtik.k l•D^T t I , ji 
AOO  CUNTlNUi 
800  CONI  I \UC 

DO  600  I I .N 

600  WR|TL(6,910)  f,IOrTIUJ),J«),N) 

910  rOHMATI*  ROW,  IS/(SE1A.S)I 
Rl TURN 
ENO 


DETE0017 
DCTr0018 
0ETE0019 
DE  rrooAO 
OETEOOAI 
DCTEOOA? 
DETfOOA) 
OETfOOAA 
DETtOOAS 
DErt00A6 
oerronAT 
0ETE00A8 
DCTEOOA9 
DCTFOOSO 
DETtOOSl 
0ETE00S2 
0ETE00S3 


su*<«ouTi\r  ndtssicorf J4 » 

c 

C »*RtSS  C*lCULAIES  VORtICIW  COlfflCIfNfS  SlUUTfOM  Or  SIMULTANEOUS 
C fOUATIOiS  ANO  C'ltULATfS  LtAOlNO-EOG*  VO^TT*  ST^E  .TM 

C 

C L 1ST 

C CCEET : A MATBI « IN  A « ■ ft 

C Sj:ln:  ft  vrciOM  IN  4 * • ft 

c N'-OOT:  ‘a'‘ntrf  or  SiMUtfANCOUS  tOuATIONS 

C J<»?  CONTHOtS  PAINTIMC  Of  INTtftMCOUrr  RESULTS 

C 

REAL*  ft  OUEff  (;S,;M.0S0LN(25I 

01  MENS  f ON  X0UM(2ftl  ,ftftR|H(?ftl.nOUMl25}«COEf  f (2S.2S). 

C SOLN(?SI.  IPffll?^).CA'*fAtlOI 
cn'‘»*nN/Mnr>f  s/nocp.^iCjm/contal/ J2.  JJ 

lER  .0 

PI  • 1.  5 

C 

C INlTULI/r  VOPTICITV  COrmCIEKTS  XOUHtM 

no  !'>  I • 1 .Nunot 

*OUM( I 1 -0.0 
DO  1C  J*l.NMUl»T 

10  OOEFFII.J)  • nftLCICOEFrit.JM 

If ( j;.Nr. n co  to 

c 

C UETERH  CAN  ftC  CALLfU  TO  T<  ST  fOK  II.L>CONDt  TTONEO  MATRICES 
call  dfte RHiccf rr tNHoori 
40  CONTINUF 

call  OMFGioorrr,  2*itNMOor.  ipea * is*  ifRi 

c 

C OMFC  IS  IftM  SLMATH  SURROUTiNf  TO  PEftfORM  lU  DECOMPOSITION  OF  MATRIX 
C 

C ARGUMENT  LIST  OMf  G(  A«H*I«*  I PEA*  I S*  I CA  ) 

C 

C A:  INPUT  MATRIX  TO  RE  FACTORfO 

C ni  ORDER  Of  MATRIX  IN  DIMENSION  STATEMENT 


P»r  '.nO'U 

p P r f p , 2 

PRT  L'T}'^  I 
PH*'  Ln  V)i, 
Pftt  SOO'^S 
p«t  snoo6 
PRC  soon  r 

PRF  soonn 
PRf  SC'T')') 
P^E  SOOl 0 
PRESOOl I 
PRES00I2 
PRCS0013 
PRf  SOOl 4 
PRFS0015 
PRE  SOOl 6 
PRf  SOOl 7 
PRES0018 
PRE  S0019 
PRE  S00?0 

PRF  soo;i 

PRE  son?? 
PRC  son?  ) 
PRFS00?4 
PRE  SOO?S 
PRE  sn'';6 
PRf son?  7 
PRE  ',00/8 
PRE  50n?9 
PRESOOTO 
PRE  soon 
PRFSOOl? 
PRESOOi 
PRESOOU 
PRE  SOOIS 
PRESOOTA 


C NJ  NUMBER  Of  SIMULTANEOUS  roUATIONS 

C IPERJ  permutation  VECTOR  CENEAATSO  fOA  DM5C 

C ISl  SIGN  OF  DETEAMINANr 

C ICR:  ERROR  INOICATOA 

C 

OET  ■ FLOAT!  |S» 

00  1-1 .NMDOT 

on  • 0Er*SNGL  looEfri  1 ,1 1 1 
200  CONTINUE 
C 

C OUTPUT  OETERHlNASr  OF  MATRIX 
WRITri6.9S0l  NMJDT,OFT 
IC»0 

c 

c IC  ■ control;  counts  NUM9PR  OF  ITCAATIUnS  ALIOMEO  TO  ELIMINATE 
C RESIDUE  FROM  AX  • 6 SOLUTION 

in  If  M.EO.O)  CO  TO  IS 
C 

C lER  IS  r.DNniTION  PARAMETER  PROOUCFO  ftV  OMFG.  IFR-0  IS  BAO 
RE  TURN 

15  coriTiNur  , 

ic-ir.M 

on  20  I-l  ,N»'nDT 
OSOltil  I I * SOLNI  II 
20  OOUMI  i )-S(^LN(  I I 

CALL  UHSGID0Crr,2S,  IPrRtNM00T,0*US0lN«  IFRI 

c 

c DMSG  IS  IPM  SI  MATtt  SUi-, ROUT  INF  TO  SOLVF  SlMUlTANEnuS  LINEAR  EQUATIONS 
C CivfN  lU  orCf.MPCSITIGN 

C 

C AHGUHrNT  LIST  OMSGI  A *•*  ^ | irf  A , N*  J * ft*  IF  R I 

C 

C A:  OUT  Ml,  I TMOM 

C M:  (iRtJf  r Uf  •'AlMl*  | -j  TlMfNSIC.^  STATtMCNl 

c iPfRt  nuiPuT  FROM  o'^rr, 

C Nt  NU"0'K  OF  SIMULf  A'*r:JUS  FOUATIONS 


PRE  soot; 
PRf  SOuT  S 

PRf  soo  n 
PRESOO^O 
PRESOOAl 
PRCS0n<,2 
PRE  SOOA  J 
PRE  S0044 
PHr500<.5 
PRf  S0n<.6 
PRES0047 
PRE  S0048 
PRF  S00<.9 
PRC  SOOSO 
PRF  sons  I 
PRL  S00S2 
PRf  S0C5 J 
PR*"  SOO'  4 

PRf  sonss 
PRf  sonsfc 
PRf  SOOS  7 
PRf  soosa 
PRE  S0"''‘>0 
PRf  SOOC.O 

PRf  sonci 

PRC  SnC62 
PRf  SOuA  ) 
PRf  SOi)7.4 
PRf  . np'.A 
PRf  S''^'**  • 
PRf  SO  »o7 
PRF  SO  ''.H 
PR  I sn  ' 0 
PRI  ‘ 170 

PRf  ' 071 
PR!  inn 
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C J:  0»  TO  OUTMT  I 

c Bt  ip«pa*  a:  OUTPUTS  i im  a i • a 

C ITAl  (RRaR  INIHCATOA 

OQ  lao  l•l,Nn30T 
100  soLNin  • swCL (osniNi 1 11 
U I IFR.TO.O)  GO  rr»  TO 

c 

C ICR  1%  RRTRII  CUNOirrON  MRARffCH  RROOUCCD  BY  DMSC 
AT  TUk.N 
70  CO>lTI>iUf 

IT  I JA.Nf . II  CO  TC  WO 
C 

c r*uTPuT  i*4Ti AM ourr  acquits  tr  Drsitco 
WA  1 IF  I 6,Q^01  I SntNIKI»K»l,NPOOTl 
wo  CONTiMUf 

NMOU«NOCH«NOSM 

c 

C CALCUIATF  VOArfCirv  cnccr  ICIF!<IT  VrCTOR  ioumim 
on  6%  i-i •h**()or 

A^  iouHi I |•xouHl  I l•salNi 1 1 

L 

C CALCUIATF  LFAOINC-FOGC  VOATCI  STArMCTK*  OANMAID 
00  90  It  >1«I0 

CARAA( tit  <0. 

I • .MriQAfi  II  ' 

00  AO  1«1,NGCH 
J«  I♦•1P00 

GAAHAdll  • KOUtt(Jl•SlMIClOATI2•l'l)/^.•P|AXl  » GAHH4III) 

AO  CCNTlNUF 
90  CCNTINUF 
C 

C OUTPUT  iFAOING'tOGE  VOMlf*  STACNCTH 
WAirC(6.9A01  GAMMA 

c 

C OUTPUT  VQATICITV  COCfTICirNTS 

tfAirEl6,920}  I lOUMI Jit J«1,NMD0T) 


PRC  *;on7 ) 
PAT  ^on/A 
pRi son  rs 
PRf  SOOTb 
PAF  SOOT  7 
PAFSOOTA 
PRF  SOO  T9 
PAF  SOCAO 
PRf  SOOAl 
PRf  SOOM? 
PRf  soon  J 
PALSOOHA 
PRFSOOAS 
PRf  S00A6 
PRf  SOOA7 
PRf  SOOAB 
PRf  S00fl9 

PRfSOono 
PRC  S0091 
PRFSnonj 
PRF  S0U93 
PRtSOOR* 
PRCS009S 
PAFSOOOb 
PRFSOOPr 
PRFSOORe 
PRFS0099 
PRFS0100 
PRCSOlOl 
PRCS0102 
PRFSOIOI 
PRCSOtOA 
PRtSOtnS 
PRCS0I06 
PRFS0107 
PRFSOIOS 


C 

C CMCCA  NU^TRICM  PROCfOURf  6Y  CAICUIATIHC  B.  FROM  A*I 
UO  "JO  JM  .NHuUT 
ppt  :**  • i « • 0.0 
03  SO  J*  I . .-^MOOT 

SO  bpr|h{|i  4 nPRiMiii  * cocrcdtJi  psoiniji 

c 

c CHfCR  o;rr(RC\c(  pFfwrrN  initiai  b vfctor  and  calculatid  b vector 
no  SS  IM.^MUO! 

SS  SGLNM  I'BPR  iMt  n-RUUMf  I I 

I f { .11  CO  f 0 ?S0 

c 

C OUTPUT  CAICULATCO  B VTCTn*.,  If  OtSIRfO 
MR  Mf  I6.<)R0>  iOPR  IMIi  1.  I - ItNMOOr  I 
250  CONTP^ur 

c 

C OUTPUT  DfLTA  B 

WRlTffb.nro)  ( SOI  NT  I I • tNHOOTI 
in  IC.LT.Jll  CO  TCI  15 

c 

C PUNCH  VOfUICITV  COffFICIFNTS 
C 

C FIRST  snCM'NOSM  MOUfS  ABC  »<ORStSMOF  MOOES;  RfMAniNG  MOOES  ARE 

C LFAuriG-f  fjCf  VORTtK  “OOFS 

C 

I Tr  1 T,9  '.01  C iDU-m  • 1 1 NMOOT  I 
920  f l.MPATt  *01  OACJlNG  CCCfflLIFNIS  ARC  • , M OC  I J.5  M 

9)0  roPMAi  (sr  1 4 ,5,<i  / , • soi.N*  I 

9<i0  rrBM\T  I •osam-^a  at  f ' . I • .7*.  1, uon/i  lor lO.fc t 

950  r'MPAM*  Ut  I(  .'KINA’, r Uf  FAIRU  or  OHOI  H*  > I5|2X.  * l S * tE  l 7.5) 

960  FOR-ATl*  Tfl.  % 1 S • / I 5 f I 9 . 5 11 
970  fCHKAT  I*  DEL  H ISVISriS.SII 
960  fCRNATI*  TMf  CAlCulAI‘0  R VECTOR  IS'/ISClA.SH 
Rf  Turn 
End 


PRrS0in9 
PRI SOI  to 
PRt  soil  I 
PRfSOlW 
PRCSOll 3 
PRESOlU 
PRCSOl 15 
PRFSOllb 
PRFS0117 
PRESOUe 
PRtS0ll9 
PRCS0120 
PRf  S0121 
PRf  SOW? 
PRESOW) 
PRf  SOWS 
PRf  S0W5 
PRf  SOWN 
PRf  SOW  7 
PRt  solpa 

PR!  sown 
PRC  SOI  30 
PRCSOl 31 
PRCSOl  32 
PRESOt  33 
PRf SOI 3S 
PRCSOl  35 
PRC  SOI  35 
PRCSOl 3 7 
PRf  SOI  30 
PRt  SOI  39 
PRf SOISO 

PRtSOlSl 
PRf  SOIS? 
PRfSOlS) 
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C.4.  Program  III  Prime 


The  following  listing  for  Program  III  Prime  Includes 
Program  III  Prime  and  subprograms  XGVGM,  ADEL,  and  AGAM. 

Program  III  Prime  calculates  the  loading  on  the  wing 
for  a given  vortldty  distribution  and  vortex  location. 


- 108  - 


C raoCNAM  III 

c 

C III  PAIHl  CALCUIAHS  loading  ON  WING;  ClVfN  VONriCIIV 

c 

C NCCO  FUNCTILNS  F .1 V , GVOA I .iCtfCN 
C NIEO  SURROUTINrS  AQt  I • AGAH*DFNC  T .rflC  I N,  CAUSl  D 

c 

C INPUT 

C INPUT 

C INPUT 

C INPUT 

C INPUT 

C INPUT 

c 

|*Tf«N*l  ICVCH 

DINING  ION  KPIIGI.  VfCStI  III.ADrLTIG.M •ACANM|5,G|, 

C AIG.G) •COIGI •CVGAMI66.5I 

COPMON  IPI  , ▼PJ,S.P»NP/WlN&/CS«/VLOC/lNAl/Pl AN/C A 
COPNON/CVOH/CTVQRtGI,C/VOPISI/StC/iVOPT  /GAUS/C 1 74 1 • W( 2A) 

c 

DATA  VTFGT/0.0..3.  l.O/«CVCAN/))OPO./ 

PI»3.14|G'’3 

7¥0AI*0.0 

DO  no  JOUHNV  • I 3.74 
wunuPNvi  « u(7G-jdunhti 
140  GIJOUNNYI  • -CI75-JOUMMYI 
C 

WRITC  I6.fl<10| 

C 

AtA0l4.910}  LHAX.J4 
C 

C LPAI  n OtCRftS  Of  mClDOH  IN  VONTfA  POSITION 

C J4  IS  A CONTROL  PARAhITIR.  IF|J4.(C.n  INPUT  GVGAN;  ClSE  CAICUIATC 
C 

IICA0IS,970}  CVVOR.C7VOP 
C 


LPAI,J4  714 

CTVnR.C/VOR  4f  |4.4 

NCn'tO.  S.NCCP.NOSH.CR  tIO.F  I 0. 4 . 7 I t 0*F  1 0.4 
IPI  4Ft0.6 

GVGAN  4114.4  If  J4-1 

A, CO  4114. 4 


PC  '*‘000  I 
PG  IPOOP? 
PG  'POOO  I 
PG3P0004 

PG^poons 
PC)P0006 
PC  IPOOOT 
PC  ipoons 
PC  iP'*on4 
PO I^OOlO 
PG3P00I 1 
PGIP00I7 
PC  IPOOl  1 
PC3POOI4 
PC3POOI4 
PC  3 POO  16 
PC  IPCOl 7 
PC3POOI 0 
PG  1P0C19 
PC3P0O’0 
PC3P0071 
PC3PC077 
PC3P0073 
PG3P0074 
PC3P0074 

PC3P0076 

PC3P007T 
PG1POO70 
PG3P0a79 
PCIPOOIO 
PC3P00U 
PC3P00 J2 
PC3P00 J I 
PG3P0034 
PC3P0034 
PC3P00)6 


C CyVOR:  CnilflCIfNTS  fOR  VORiri  SPANWISE  POSITION 
C C/VOB:  coirncirsTS  ro«  vomica  vcrtical  position 

WRI  M (G.'I'.OI  CYVCI.C/VOR 

c 

C CAICULAU  VCiRUK  ‘'OSIIICN  AI  A-l 

CALI  f NCIN!CVVnR,L'»A**l.,VVOR| 

CM  I F NCrNIGZvnK.lMAx,  1..7V0RI 
C 

RCAOIStReO)  NCOROf  S • NOC N .NOSH .C A 

c 

c NCORO:  N(*.  OF  CHGROWISF  POINTS 
C S:  SCMISPAN;  NCN-0  pv  NAilPUP  LCNCTM 
C NUC**:  NO.  OF  CHOMOwlSI  POOIS 
C NOSH-  *.0.  OF  SPANwISC  HOOFS 
C C«:  RCOI  CmO>#0;  NC*i-U  BY  HAxiHUM  LENGTH 

WRtTr(6,HT0)  NCQROt  S • NOCM .NOSH. C R 

C 

C CALCUlAli  CmORU  to  span  HAIIU.  CSR 
CSR  • CB/I ?.«SI 
C 

C INPUT  CHORDWlSt  POINTS  OF  INTCRCST 
C 

RFAOIS.NG")  »PT 
NC  ■ I I •NCOftO 
If  I J4 .NF  . I I GO  TC  110 
DO  lon  l>|,NC 
C 

Rf  AOIS*  970  I (GV'.AMI  I . HQ  1 , K0«  I , 4 1 
100  CCP.T  I.NUF 
110  CONTINur 
C 

RF AO (4. 970  I IIAI  I.JT,  I • 1 ,NCCM 1 , J« | ,NOSH } . | GOT K ) , K> I iNOCM) 

C 

C a:  HORSmOF  VQRTII  CO'FFICIfNfS 
C COi  LFAOINC-roCC  VORTTX  COCFFICICNTS 

WR I T[ 16,9901(1 AI I , J ) . 1 • I •NOCH I , J« | .NOSH I , I COI  K ) .K* I .NQCH I 


PC3P003T 
PC  JPOn  10 
PC  JPOU  19 
PG1P0040 
PG1P0041 
PC3POOS7 
PC3P004 1 
PC1P004A 
PC3P0044 
PG3P0046 
PG 1P004  7 
PC3POO40 
PC3P0049 
PC 1P0040 
PC  IPOOSl 
P&3POOS7 
PC3POON3 
PG1P00S<, 
PC  JPOOSS 
PCi^ou'.e 
PGlfOS'’.  7 
PC1POOS0 
PC  »pno‘»9 
PC  ^►■OONO 
PCiroONi 
PClP0nf,7 
PC  IPOOM 
PClP0it4 
PC  1M0064 
PC  1P0066 
PCIMOON? 
PC  1POO60 
PCiPonco 
PCU’00/0 
PC3P00II 
PC3P0077 
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c 

WH i TF I ^,9^0  ) 

C C*lCUl*TF  PTfSSUflFS  tlONC  LiHfS  K • 

DO  <-co  I ■ I ,Ncn9n 
«pi«ipr(  I ) 

DO  <iOO  J*  I f 1 1 
Ni  - j*  1 1 -n  *1 1 

ir  t *p  I .or  .CB  I cc  to  wo 
vPj«rTfSTr J)*xPt*S 
CO  TO  1 10 
1 ?0  CONT INUF 

YTf  • S* I «PI-C«  ) /t I .-CR  » 

YLE  • 

YPJ  • YTf •YTFSTl Jt*rYLf*YTf I 
no  ETA  • tPJ/S 

c 

C ASSU'^ro  AMROW  re®  TM6TA 

THT  . APCOS(  ( TA  -2  .PAP  I ♦CR  1/ I CR*t  I T A*  .0000  i ) > J 

C 

C INiTfALlTf  SU*'“AnON  VAR!ARl€$ 

CAH“^«0,0 
DEL  TA-0.0 
VCM*0.0 

C CALCULATF  LCAniNG-POGC  VORfC*  CCNTRIRUTIONS  TO  WING  VORTICITY 
00  1T.0  P0‘  UNOCH 
H*MO> \ 

SGA-MA.COr  ^C1 ‘XP  l•CVORTIR•MPf ,YPJ*S) 

&APM*.SGft*'PA*CAMPA 

SOf  LTA«-CO(  •'0MYPJ«GV0RTIR**RI  ♦VPJtSI 
150  OEl TA  t 0ELT4  ♦ SOCtTA 
fF( J.EO.lt 1 GO  TC  260 

C CALCULATE  MORSESHQC  VORTf*  COMTRTRUTIONS  TO  KING  VORTICITY 
CALL  AOCL  I AOPLT  «ThT.ETA*ROC««NCS«> 


PGTf’O'W  I 
PG^PO"^  r«, 
PG  rs 
PG1POO  tfj 
PGTPOJ  f j 
PG^Poora 
PGiP0n79 
PG 

PGTPOOPl 
PC  iPCOA? 
PCIPOO**  i 

PC  TP009^ 
PC3P'^055 
PCIPOO'^6 
PG1P00BT 
PC1POOB0 
PC)POO09 
PC1P0090 
PC1P0091 
PG1P0092 
PG1P0093 
PCIPOO'Xi 
PCV’OO^S 
PCIPCO-^f* 

PCTP0097 
PG1P0098 
PCIPOOTQ 
PCIPOlOO 
PCIPOlOl 
PC3Pni'^2 
PCIPOlO 1 
PC3P010A 
P&)P0I05 
PC1POI06 

P03P0107 

PG3P0108 


CALL  ACAm  Ur.A^P.THT.ETA.NOCM.NOSm 
00  100  HO  •UOOCH 
00  100  YPP«1,NCSP 
sc  A ►'•'A.  A I “CiHPr)  •A0A‘'H|M0,RPP| 

CIHMA  SCAH^-A  • 'AHPA 
son  TA«Al MQ,«PP1 •AOELTIROtWPPI 
300  Ofl  TA  r 1,1  t TA  • SnriTA 
260  CONTlNUr 

If IJA.f C. I J GO  TC  365 
C 

C CALCULATI  CONTPinuTION  TO  SPANmISC  VriCOlTY  FROM  ItAOlNG'CDCE 
C VORTCX  Af  T or  X al. 

c CAicuLAre  cvch; 

XOIFF-I.-API 

VOIfF»VVOM  -YPJ 

YSUH'VVCR  ♦YPJ 

TfRHI-YOIf F»YU  IFF^/VOR  P/VOR 

term; *v SUM* YSUH*TvaR  •/VOR 

CVCH2  fvOR  *1(1  .-xOfFF/$QRTITfRMM*OIFf  •XDIFF  ) )/TERMl- 

II  l.-Xl)irF/SCPTITf»M2*X0TFFP*0lfFI»/TERH2>/U.*Pn 
C 

C CALCULATf  V ' 

DU  160  HQ* I .NOCM 
H-HQ-l 
C 

C CALCULATF  CCNT R inUT f CN  FROM  VORIfX  FORWARD  OF  X«| 

call  cAusioi  o.a».ntOvr.Ns»iG^GM  i 

CVGHl •GVCMS 

call  G.UJSICI  . !1,.?5»CYCMS»1ICVCH  I 
&YGHl.GvCHS«CVCM| 

CALL  CAUSIOI  .25t.9T*CVGHS»XCVGM  I 
CVGHl»CVGMS*CVGH| 

CALI  CAUSIUI  .S/«l.n*GVGKSfXGVGM  I 
CV&MI •GVGhS*CVCH| 

CVCAMI N1 ,KQ  »>CVGP| 4GVCH? 

360  CVCH2«- I .•even? 


PG1POI09 
PGiPO! !0 
PCIPOl I I 
PC3P01 I 2 
PGJPOl 1 1 
PG1P01 
POPOllS 
PC1P01 16 
PG1P0I I 7 
PG1P'511R 
? G 1 P 0 I : 9 

pGwo: 

pGiPoin 

PCIPOl ?2 

PGI^^Si:  i 

PGIPOl^^ 

PG)P0W5 

PG 

pgip: I ? 7 

PG3POW8 
PC3"0W9 
PGIPOl 10 
PGIPOl M 
PCIPOl  12 
PGIPOl  1 1 
PGIPOl  !<• 
PGHOl  15 
PGIPOl  16 
PGIPOl 1 7 
PCIPOl  ’f1 
PG  li'Ol  19 
PG1P0M0 
pcipom 

PG3Pni42 
PGIPOlAl 
PGIPOl 94 


- no  - 


36^  CONTJSUf 

00  1?0  MO'l.Nf.CH 
VGM*GQi MQ) •GVG«^INI •MQ)«v;h 
370  CONTINUf 
C 

c c«LCuiATi  pRr^<>uai  oirriKCNcr  cgm^oncnts  out  to  spahwise  and 
c CMUMowiSf  coHPONiNrs 

PV-7.*VGHtofLTA 

PU* 

Of  I TP  Pb*PV 
C 

C OUTPUT  PBISSUMF  OlfrfHTNCf 

MR|TMh.930t  XPl.VKSrU  I •ETA,CAMnA»orLf  A»PU»PV«DtLTP 
AOO  CONTINUf 

c 

C OUTPUT  VflOCITt  CONTR I PUT  fCN^ 

WR  I If  I ^•')00)  ( ir.VSAHI  I , Jl  • J*t  tNQCni  .NC  » 

C 

870  f OBHAT I 'OCMOwS  Pf'  ■•.Il«1l»  ‘SEHISPAN 

C f 6.  3.  3*. 'CHUwS  KOnf  ♦ M.  3K. ’SPltHS  POOC  S«  • • I 3.  3*  . • CA  ■ • * F 7 . A , / I 
880  FOPHATI  I I 0,r 10. I 1 0«f lO.A) 

890  rUR>«*r(«  ill  PRIPf:  UPOATFO  APRIL  7fl»1977*»/l 
900  rORMATI'OTKf  VALUES  OF  CVCAP  ARE •/ t tOE 1 )*4  I ) 

910  f OP^AT  I ? |*j  I 

920  format  ISf  lA.^I 

930  FORMAT  I 3F  1 <«. 'i ) 

9<.0  f OfiMAf  ( IMO,  TA,  *XP|  • , T 1 1 , ‘YPJ'.Tie.  • F T A • . T29  , • CAMHA  • , T4  2 , • OE  L T A • , 
C TST.'PUNTTl.'PV'.TfiA.'OELiP*/* 

9S0  fORHATI'O  ThF  VAlUfS  Of  CWCR.  C/VOR  AREVISEU.M) 

960  format  (Sf  JC.61 

970  FORMAT! 'OChCWS  HCOCS  « • . 1 5 , 3X , • SPNWS  HOOFS 
990  fORMATCOThE  WALUfS  OF  A, CO  ARE  •/ 1 St  1 A.S  1 1 
STOP 
ENO 


PGTpni^s 
PC  3»’ni'.6 
PG3POI<.7 
PC  31*0 1 An 
PC3P01A9 
PC3POl*iO 
pcipor.! 
PC  3 PO 1^2 
PC  TPOt  S 3 
PC3P01SA 
PC3f»0l*>S 
PC  3P0l**6 
PCIPOIA  7 
PC3POIS8 
PC  3POIS9 
PC3M01 60 
PC3P0I6I 
PCIP0162 
PG3P016) 
PCIP0J6A 
P*j3P016S 
PC3P0166 
PC  3P015» 
PC3P01 68 
PC3P0169 
PC3P01 70 
PG3P01 71 
PC3P01 72 
PC3P01 73 
PC5P01 7A 
P&3P0I 7S 
PC3P01 76 
PC3P01 77 
PC3P01 78 


C 

C 

c 

c 

c 

c 

c 


FUNCTION  ACVCHIAI 

KCVCM  CALCULATtS  CONTRIBUTION  10  IC  SPANWISf  VELOCITY  FROM  VQRTfX 
ARCUMfNI  I 1ST 

ti  CMQKOwlSf  COORDiNAIt;  NON-f)  BY  MAxiHUM  lENCTM 


CnM»»OH  *PI  .YPT,S,M,N 
p I • 3 , I A I S 93 

C 

C CAICUIATC  ItAfllNC-fOCf  VORTEX  STBfNCTM 
GCAM  SIN(FlCAri2*MM)/2.«P|»xl 

C 

C CALCULATC  SPANWl'.f  VELOCITY  CONTRIBUTION  FROM  LEADINQ-EDCF  VORTICES 
XCVCM  -CCAM  •(fV!K.YPT,XPT»-FVU,-VPT,XPin 
Rf  TURN 
ET^O 


XCVCOOfJl 

xr.vcooo? 
xcv..mo  5 

XCVCOO^A 

xcvconos 
xcvcono6 
xcvcoon/ 
XCVCOOOH 
xcvo0n09 
XCVGOOI 0 
XCVCOOl I 
XCVGOOI? 
XCVCOOl 3 
XCVCOOIA 

xcvcoois 

XCVCOOl 6 
XCVCOCl 7 
XGVC0016 


- Ill  - 


t 


SUtaoutl^l  *0(1  tAMLT.TNT.rTA.MKN.NOSm 

c 

C CAM*  C«LCU«.*t(S  MflTt  CO*lf«||Wf ICN  TO  CiMOOMISf  VtMTICITT 
C MOn  M0«S[S!40(  VOATICCS 

c 

C MCU^NT  list 

c 

C AOdTl  CMQAOmISC  VOATICITV  CAMTAinuriON 

C TMIi  ANCUIM  CNOAMISF  LOCATION 

C CTAI  SAANMISC  CrKWeiNATII  NCN'O  AV  S(N|SAAN 

C NOCNl  NO.  or  CHONMilSt  NOOtS 

C NOSMl  NO.  or  SAANMISt  NOOCS 

c 

CONNON  /ALAN/CA 

OINCNSION  CNONOOUl.CNftTIItOl.AOClTIS.SI 

c 

ai-i.iaisas 

cr  • 2.AI2.-CAWCA 
TAIfTA.OT. .0000011  CO  TO  IM 
C 

00  l«0  ICH«I.NOCA 
00  l«0  JSa^^I.nOSA 

c 

C FOA  AOINTS  NFLA  CCNTCALINf*  ICAO  STACNSTM 
A0(LTIIC«.JSMI«0.0 
l«0  CONTINUf 
CO  TO  Aon 
1«0  CONTiNUt 

TNtTA«TNT 

c 

C use  CNCATSHCW  ACLTNONIALS  FOA  SMMMISf  LOADING  FUNCTIONS 
C CALCULATC  CNTATSNfV  AQLVNOMIAtS 
CNftr|ltl>1.0  , 

CH(STl(2l*2.*f TA 
NO$N2-2»NOSN-I 
IFIN0SN2.LT.1I  CO  TO  AO 


Aorior-*! 

AOriOOi'l 
AOf  LOP'’  > 
AorLon'’<i 
A0€10''I'S 
AOf  LOS'A 
AOflO*'T 
iO'LOi"'! 
AOtcCI'A 

rati.'.:  12 
AO(ie:i > 
A0IL071A 
AOTLOOtS 
AOELOOIA 
AOELOOl T 
AOFlOOIA 
AOCLOOIA 
AOF10020 
A0CLO02I 
AOfL0022 
ADEL  0021 
AOEL0024 
ADFLOOIS 
A0E1002A 
ADELOOET 
A0E1002A 
A0CL002A 
AOELOOIO 
AOfLOOII 
A0E10C12 
AOELCSn 
AOELO;!* 
aoelc:is 

AOELSOIA 


CSe«CME0r2l2l 
DO  SO  l•l.N0SN2 

CNCAT2iii*cse*CNNvaii>ii>  CMcmii-ci 
so  CONTINUE 
AO  CONTINUE 

IFIETA.CE.I.I  CTAa.AOA 

c 

C calculate  AAEIIAINAAV  FACTOAS 

rCTOA«-A.*A|  /SOATII.'CTAACTAI 
NnCA2«N0CN«| 

CNOMOOII ••THETA 
00  SOO  ICN>|,>tOCN2 

CNONCUl ICM*| ••SINIFLOATI ICHIATMCTAI/FLOATI icmi 
SOO  CONIl'tUE 

c 

00  AOO  ICN>I.N0CA 

AOfLTI ICN.1I>  fCTaN*|CHONOOIICNI>CMOnaOIICN*2l 
C-riOATI  IC«  1*1  ■.•IT  AIAICFACNONOOI  ICN<II<CNUNOO<  ICNt»C»«NOOI  ICN<2III 
C/riO«TI2**l2*ICN|l 
00  AOO  JSN«2.NCSA 

AOELTI  ICN,  JS'UFCTOAailll.-iTAA  1 2A|  JSN-1 1 1 lACNEAf  2 12«  JSN>|  I 
C<rL0ATI2<JSN-| ••CNCST2l2A2iM-2IIAICMONOOIICNI-CNONOO<ICN<2l  i 
C-FL0AT<ICN|A||.<CrAI<Ct«C*tltA2SN>t|A|Cr*CMeN00IICN<ll<CN0N00l  ICNI 
C<CNCAOOI  ICN<2IM/FL0AII|*a||*ICNI| 

AOO  CONTINUE 

c 

C AAINAA*  euTAUT  AOELT  FAtKO  TO  CALLING  FAOCAAN  TNAOUGN 

C AACUNENT  LIST 

c 

AOO  At  TUAN 
CNO 


AOELO''IT 
AOTlOOIS 
AOELOOIA 
AOELOOnO 
AOTLOOAl 
A0EL00A2 
ADElOOAl 
AOELOOAA 
AOf  LOOLS 
ADEL  004 A 
AOE1004T 
AOEIOOLA 
AOC1004A 
AOElOOAO 
AOELOUSI 
AOrLOON2 
AOEIOOl) 
AoriooSA 
AOTLOO'-S 
AOCIOOIA 
AOFL001? 
AOElOOM 
AOCIOO'.A 
AOClO"40 
AOE10041 
AOELOOAE 
A0IL004I 
AOriOOAA 
AOE LOONS 
AM  10064 
AOELOrNT 


112 


SU''W<.UT  iSf  *C*H  I ACAfM,  tMf  .r  tA.NOCN.NDSM  | 

C 

C CAUSIO  CAICUIAIIS  ^P^^WI^r  VOKflCITV  CCNIftlBuMON 
C MCBif  Vf.BT  ICf  S 

c 

c *RCU**rNT  LIST 

C 

X SP^^w1Sf  VOBIiCfV  C0Nf4lBuTI0N 

c THi:  akol'iab  LOtArn.N 

c eta:  SPANMISE  COOAOtNAlE;  NON-0  BV  SfHISPAN 

C NfCP:  NC.  Of  CmObCwIM  hOOES 

L NO'jH:  NC.  or  SPAHmISE  ROOCS 

C 

COPH(i»./w|»i'/C*>" 

OIK«NMnN  ACA^'HI^.M.CME  BV^IM  .CHOnOOT^t 

c 

c 

C CALCUlATI  POirNOMIAlS 

CHinT?(ii  1.0 
CHEIir?  i ? > '•.•r  TA«T  f A-  I . 
iriNOS'».L  r . 11  CO  10  AO 

00  10  J ' l.NCSN 

CMf0Y^(jl  CSO*CMfBV?lJ  I l-CMf Br2IJ-?l 
10  CONUNUf 
AO  CONf tNLf 

c 

C PREVENT  PIOWINC  UP 

irif  tA.Gf  .1.1  eta  • .Q9<> 

THE  TA- THT 
C 

C CAiCUlATE  INTCflPEOIATE  fACTOftS 

fAClOR  • 16.*IM/IC5R*B(  UCIAU*SWlll.-flA*CTA) 

C 

00  70  ICM«1,N0CM 


ACA-OIO I 
Ar,A“o  )j*’ 
ACAHOOd  1 
AGA-'OdOA 
ACAMOOOS 
AGAH00n6 
ACAhOOO  t 
ACA»*OOOft 
AGAPOi>09 
AOAMOOl 0 
ACAHOOl 1 
ACA-OOI? 
ACAMOO I 1 
ACA*400  1 A 
ACA**OOIS 
AC1P0016 
ACAvoDi r 
ACA'^OOIB 
ACANOn I 9 
ACAHOO?0 
ACAHOO.’I 
ACAHOO?? 
ACAHOO: 1 
ACAMOO?A 
ACAHOO 7 5 
AC  .HOn^A 
ACAT  00^  7 
ACAM00<’8 

ACAMO0;O 
AC*‘"30  to 
ACAVOOll 
acamoou 
ACAHOOn 
AGAMOC  U 
AGAMOOIS 
AGAM0016 


CMOHOni  IC^'l-SINlFLOATl  ICR  I •IMttAI/PlOA?|  ICH»  ) ACAHOO  1 1 

70  CONTINUT  AGAPOOlfi 

OU  ftO  ICH'l.SOCH  AGA'*0D19 

00  AO  Jt.*'  l.NO‘jH  AGAMOOAO 

AGA''H|  At  TOM*C»'OROOI  I CH I •CMf  BV?  I J SM I ACAHOO-.  « 

60  CONTINUE  ACAMOOA? 

c agahooai 

c PBIHARY  OUTPUT  AjA“H  PASSED  TMRCUCM  ARGUMENT  LIST  ACAMOOAA 

C TO  CALLls:.  PROGRAM  AGAhOO<.S 

c ACAM00<>6 

RETURN  ACAHOO<.7 

END  AGAHOOAB 
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The  following  listing  of  Program  V includes  Program  V 
and  subprograms  BLOCK  DATA,  Al,  A5,  B,  XLE,  B5,  B7,  OIDY,  DIDZ, 
FV,  FW,  GVORT,  XGVL,  XGVT,  XGWL,  XGWT,  CHDWS,  COLPT,  OFNCT, 
DGWGM,  DGWV,  FNCTN .FUNCTN,  GAUSIO,  GVCTR,  GWVD,  KERNL,  TUCHEB, 
VORINT,  WOV,  and  WPDW. 

Program  V calculates  the  new  vortex  position  and  vorticity 
distributior.  for  a given  initial  solution  given  the  outputs  of 
Program  I,  Program  WOW,  and  Program  IIIA. 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


PflOCRAM  V 

PROCRAH  V CALCUIATES  Nt  M VOMTtM  POSIfin'l  AND  VmiTICITV  DISTRI- 


BUT  ION, 

USING  Cr.xNtaASI{  ANU  FORCE  CCNUlflONS 

INPUT 

J3.  JA 

2110 

INPUT 

NCn‘<0, NSPAN. 

rS.NOCM.NOSM.CR 

2110.F10.A.2I10,F10.A 

INPUT 

scr  p .LMAX ,F  ACTOR .ALFA.SZ 

2110  IFlO.fr 

INPUT 

CYVllR.G/VOR 

St  lA.S 

INPUT 

A.GO 

sc  LA. 5 

INPUT 

AMW.GWW 

SEIA.S 

INPUT 

N1  n I .Nl  1 2 1 . 

.NlUl.NtlAl.NCP.JI 

.J2.r  TA  StS.212, F10.fr 

NCFO  f UNCr IONS:  Al . A^.R. AS«flT.ntOT,OIO;.r V*rw,CVORT .acvl •igvt . 

<Gwl . ACu  T , > I . XI  r 

Nf  FD  SU'^RCUI  I Nr  ' : ChdwS  , f Cl  **  T .OfNC  I # OCW  jH.OCWV,  F NCT  N » FUNC  f N * 

CAUSIO.  GVC  i R . GWVO.  RC  RSI  . ruCHFft,  vr^  iNf  tWOVcWPOM  BiOCK  DATA 

DIPrNSIOS  XVFC  n I . AT  AI  3S.  151  .PAR  AM  I 15 1 . F M I *<S  I 35  ) . I P E R US  ) 
CONHON  XO  I , Tvnp  I , , H,  «r»  /PLAS/CXSAK  / kiOS  | / JS  • N I I A I 

c /Ck.POw/  NC(WO.*r.PAN,COFF  F l?S,?SI.GKW|7S.SI  .VAUS  ) 

C /UQV7/AR ( A .S. M . ALSI S . S I , N t SC • CR I S I . TK A 1 1 0 I . XO , . SOS » V • Z • FMS. / HZ « 
C RSOR.f  TA,CAUS«(  10  I .Pf»7.*lCP.^*P.N.X.C/.  Jl . J7. '.S.tMNZ.ZSZ^.CSA 
c /Sfc//vnH  T/vif;c/iMAx/Mf)ots/NCC‘'.sasM  /confaz/j)*  ja 

C /VOR  T/yvOR  ,/ VOH/f.wOA/CYVORISI  .C/VIJAISI 

C /GAUS/C(  ZA  I .Wt  2 AW  rACOn/XACCMI  )S.  )SI  .SAWWtS.SI  .SAVylS  t S). 

C DAmDY { S.S I .OAWOZ ( S.M .OAVOVI S.SI.OAVD/IS.S) 

C.  /CVfC/  Ai  S.S  I .001  S)  , Nl.f  SURYI  SI  .FSUNZ  ISI.PI  .SINALF.NOFP 
RFAL*R  CARAMUSI.OACOSUS.  iSI 

INITIAL izr  GAUSSIAN  CUAORATuAE  kEICKTS  ANO  ABSCISSAS 
DO  ISO  JOUPNY  • I l.?A 
w( jouN^yi»wi?s  -jouMwyi 

ISO  Cl  JOUHHY  1 --cus  -joummyi 

iNiTIALIZr  NO-FORCE  POINTS 


PCHsnoni 
pr,'4‘«oo'!Z 
PGH'.OTO  J 
PC‘**'Oi>P<. 
PCP'.OO^S 
PGAsnono 
PGMSOOOT 
PCf'-.00''S 
PCMS0009 
PGHSOOlO 
PGMSOO! I 
PCSSOO I 2 
PCHSOOU 
PGMSOOIA 
PCMSOOIS 
PGHAOOI A 
PCMSOOl 7 
PC'SOOl  0 
PCMSOOU 
PCHS0020 
pcMsno; I 
PGMS0022 
PGN'-OOZ  J 
PChSon^A 
PCMS002S 
PGMA0026 
PGMS002  7 
PCHSOoza 
PGNS00Z9 
PCMSOO  10 
PCMSon  u 
PGKSOOIZ 
PGMS0033 
PCASOO  !A 
PCWS003S 
PCHSOO  16 


OITA  IVECT/.6.AA0,,  .1Z..8AU*0*,.?Z,.6..9.1ZRO./ 

PI  • 3 . I*.!  ST  1 
MR  I TT I 6, 0 301 
C 

RFADIS.A0CI  J3.JA 

C 

C J3t  CCiNTani  PARAMETER.  If  J 3 » | . NCC  AO? -NCriRO  J ELSE.  NCOAOZ-NCORD*  1 
C JA  CONIRCLS  OUTPUT;  IF  OUTPUTS  iNIERMtOIAJF  RESULTS 

nRI it  I6.09CI  J 3, 

C 

RE  AO  I S, 0 00 1 NCnRU.NSPAN.S.NOCH.NDSP.CXMAX 

C 

c NCORO  • NO.  nr  CHORCWISI  C0U0C.3IICN  POINTS 
C NSPAN  • NO.  Of  SPA'.wISr  COUnCATION  POINTS 
C S - SfHISPAN;  NQN-O  "V  *'AX|MUM  lTf4CTM 

C NOCH  •NO.  or  CHfjuowr.r  ioaoing  mooes 

c NOSM  -NO.  Of  SPANwISr  LOADING  MOOTS 
c CXMAK  • HCOT  CHORO:  NUN-0  BY  MAXIMUM  LENGTH 

WHI  Tr  16. 0 TO  NCflKn.NSPAN.S.NOCM.NOSM.CXMAX 

c 

READ  (S,09OI  NCf P,LMA«,FACTCR.AIFA,S? 

c ' 

c NOfP^NO.  nr  force  points 
c IMAX  • OkO?S  cr  vriRI*’x  approx  tmat  ton 
C FACinn:  LiNMS  CHA'.Cr  S IN  VORTEX  POSITION 
C ALr^  . \*iGit  cr  attagk  iinraoianSi 
C S2t  LIMITS  CMANGI  S IN  vr.^<riCITY  CCfrFICIINTS 
WRlTf(6.'>CCI  LMAX  , r actor  ,ALF  A.NOFP 

c 

C CALCULATI  Orj.**.MASH 

S INAL  r -SIN! ALFA  I 
C 

RrA0IS,9<.n)  CrVOM.CZvOR 

c 

C CVVOR-  COEFFICIINTS  CT  Mjai/ONTAi  vORIfX  LOCATION 
C GZV0--  COfFFICICNTS  0*^  VfkTJCAL  VORIFX  LOCATION 


PGMS0037 
PGHSOO  30 
PCHS0039 

pgmsooao 

PCMSOOAl 
PGMSOOAZ 
PCmSOOA  3 
PGMSOCA<, 

PGMSOOAS 
PCMSO0A6 
PCM*iOOA  7 
PCMSoo<»a 

PGHS00S9 
PGMsonso 
PCMSOOSl 
PCMMOOS2 
PCMS03S  3 
PGMSOOSA 
PGMSOOSS 
PGMS00N6 
PCMSOOS 1 

PCHSOO50 
PCMS00S9 
PGM^OO^O 
PC“:.006I 
PCM'/O'JAZ 
PCMNOIN  3 
PCMsnn^A 
PGMGOONS 
PGM^00^6 
PCN'.ons  7 
PGMSoooa 
PGs'.O'^/.O 
PGM'.ON  7n 
PCM',00  7l 
PCHVOO  72 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


WKI  Tt  I » CYVCR.C/VO« 

iFAO  ( ( At  I «i)  I t*t  •NOCN),  J«1,NCS**)  . ICOiK)  , K-UNCCH  I 

A:  Mi'RSFSHor  vORTicnv  corFFicif^ts 

cci  Lf AOiNC.-rccE  vQ^ricffY  cOfFncifNTs 

I Tf  I 6»'»^0  I M AJ  I , J»  • ?»l  •NOCHI.  J-UNOSMJ  , ICO(K  I .K-l.NOCMI 

NHac«NOSH*NocH 
NMOor-NHnufNCCH 
NOCP  ■ N"COT 
NOnT'j  • ?*NCrP  ♦ NOCP 
N^oor*  NHOor*  ;*l*-ai 

HHOD  ■ NC.  or  HOPSfSMOf  VO«Tf*  HOOfS 
NH00T«  total  nc.  cr  vomiciTY  woofs 
NOCP  • NC.  or  coiincwiON  potnis  on  wing 
NOPTS  ■ total  no.  op  control  points 
NHOO;  • total  no.  op  hoops 
00  200  I •! .NOCP 

READ(S.9A0I  (COPPFIIt J>*J«l*NnCDI 

1C0EPF( If Jl. J-l«NH001t  OUTPUT  FhOH  PKOOHAH  WOm 
00  200  J- I .NHOO 
200  COFFrn,Jl  • -CQ6FFI!*JI 
00  2S0  1*1. NOCP 

2S0  RtA0IS.9A0l  (CWMtUJUJ^I.NOCH) 

Cww:  output  PflO'*  PBOCPAM  I 
NINC*-1 

NINC  IS  A CONTPOl  PAPAHtTfP  TO  LIHIT  BfPPTITlONS  IN  CHONS 


p Z'. 

POM'.O  ! IS 
pr,t''  >Z6 
PGM' on  f f 
PG'^^nn  Z8 
P f't 

pr  M'iQn  HQ 

PG‘<''03H2 
PC«sn''n3 
PC-GOO*-'. 
PGM'.OO*-  S 
PGMS03«^) 
PC*<S0'>‘5  7 

Pj"' 03-^3 
p G H 

p j ' j i 

p ;•*  s: : •32 

PC'* 3 
PG“53‘y<. 
P0'^5-''’3S 

PG‘’^3''>3 
PG‘'52>«>‘3 
pG‘'^:r  0 

PC‘<^0l3l 
PGhSOI 02 
PCM^Ol^'l 
PGH^OIOA 

PGM$010S 
PGHSOl  '^6 
POMS0107 
PGMS0108 


JS*A 

c 

C JS  'NO.  Of  iNTfCBATinu  RTGIONS  IN  SPANNISf  DIRECTION 
C 

S BfAO  ^01.  NM  1 I.M  I?)  .Nl  I SI.NKAI.NCP*  Jl.  J?.f  TA 
C 

C NMJl-NO.  or  Lrr.FNORC-CAUSS  POINTS  INSPANWISF  INTICBATION 

C IN  BfGfUN  J 

C NCP'NU.  Ql  CHQRDNISC  UCFNDRC-CAUSS  GUADRATURT  POINTS  IN  CHOWS 
C JI.J2  CONJKPt  Ot  TPuT;  NORHAILT  0 

C CTA-/ETA*SnaiL  INTfGHATION  REGION  ABOUT  Slr4&ULARITY 
NRirr(6,Q7oi  Ni ( }i .NCP.Ni I n 

SPAN  • ?.•$ 

CSR  • CAHAA/SPAN 
C 

C SPAN  • WING  span;  NON-0  by  HAltMUH  lENCTH 
C CSR  «chgro  to  span  ratio 

N-l 

C 

C N*SECTICN  NO.  INDICATOR 
C 

C FORH  SCALFS  to  NURhalITC  EQUATIONS 
PI  ■ 2.«ALFA/CP|»Pf 1 
P2  • ALPAAP|*5 
FT  • S 

FA  • ALFA/A. 

C 

C ITRHAX  - HAXINUH  NO,  OF  ITERATIONS  AHOWfO  TO  CCNVfRCE 
ITHHAX  • IS 

c 

C LOOP  TO  satisfy  OnWNIiASH  ANO  NO-rOHCf  CONDITIONS 
00  BOO  MN-lf  I t.<HAA 
C 

c CALcuiATt  vOHiri  incATinN  at  i • i. 
call  FNCTZnGTVOR,l  NA«.|,,VVCMI 

CALI  FNC(N(C7V0M ,1  HAI • 1 ;«/VGN I 


PGHSO  I 

PG^SOI I 0 
PGH'^Ol  I I 
PG'''>0I  12 
PCMSOl 1 ) 
P&MSOl lA 
PGHSOl I S 
PG-"Ol I 6 
PGHSOl I 7 
PC'*  SO  1 1 8 
PGM '■>01  I 3 
PG'^SOl  20 
PG^'SOin 
PG^rol.’? 
PG*'Sni2  I 
PCH*'Ol  2A 
PGHS012S 
PC-SOl ?t 
PG*'SOl  7 
PC»'S012B 
PC'Sni^o 
PG*-SOt  10 
PC“SOl U 
PCH'.Ol  32 
PCNSOt  u 
PGHSOt  lA 
PG»-S01  3S 
PCHSOl  IG 
PG''SOl  17 
PC'*  SO  I u 
PC^'^Ol  »9 
PGM  1 AO 
PG‘".ni  /.  I 
P ' i^2 
PCHSOH.  J 
PGNSOl AA 
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c 

C rO<(HUl&r(  Oi'wNwAMl  (CNDIItON^  UN  WlNf. 

r Ai  I I A, i.u. N a •**  -vt  r \ » 

c 

C APD  CnNIuinil  IPS’*  rBr**  UOtaNwA^M  CONOYION  ?0  RtSIDUf  vcciow 
DO  60  I • I . NOC  «* 

60  PARAH(  I ) • -VU( t I 
M«  NTCP 

c 

C fCRMULATY  NO  FCPCT  CCNv)ITf(iN  ON  RICMf-H*NO  VORT£A 
DO  <.00  I • I ,scr  P 
C 

C PINO  CONT.<ni  POINT  ON  VOKltA 
IP  I « « VF  M I » .NOr  n I 
CALL  f NCINI  jVvCP.  I »'AA,KP|  . VV0«TI 
call  r NC  In  I Gi  vno  .1  ‘'A*  , *P| , /vORI  I 
c 

c »P|  CMOHD^I'C  COfTPOINATf;  NON-O  «Y  HAYU'UH  IfN&TH 
c YVQRT:  SP\NV.ISf  CCU'^OlNAIf;  NDN-0  BY  HAAleuN  IfNGTH 
C /VQPT  • VI^IICAl  CUCfiUlNATf:  NCN-0  BY  HAf|MUM  LCNCIH 
inC  » iPl/CY^Ar 
SOS  • YVO«I/S 
I • ivf.«»/s 
c 

C XOC  « CMQROwISf  position;  NON-0  BY  ROOT  CHORD 
C SOS  ■ SPANWIS'  PI-SMfON;  NON-O  BY  SfMiSPAN 
C / • VfRTKAL  PCSIItCN;  NCN-0  BY  SfNISPAN 
C 

C CALCULATf  CCMRinUTICWS  TO  PORCtS  AND  RClATfO  DERIVATIVES  FRON 
C HCRSfSMOf  vortices 
CALL  VOVIL  I 

c 

C CALCULATE  PCRCES  ANU  REMAINING  DERIVATIVES  FOR  JACOBIAN 
CALL  CvCTHINOCPI 
Aoo  continue 
C 


PGP '>01  <.S 
PGM'.ni  <.6 
Pf.M^Ol  t 
P(,H*.Or.  R 
PGHNOl 
pcMNor-0 
PCMsnr- 1 
PCM^OI  '•>? 
PCM  so  I S J 
PCMSOISA 
PCMS01S5 
P&MS01S6 
PCM SOI  NT 
PCPSOISB 
PCM  SO  I S9 
PCMSOl 60 
PCMSOIM 
PGNS0162 
PCMS0163 
PCHS016S 
PCMS0I6S 
PCM  60  I 66 
PCMS0167 
PCHS0I6B 
PCMS0I69 
PCMSOl TO 
PCHSOl Tl 
PCMSOl T? 
PCMsoi  n 
PCMSOl 76 
PCMSOl 75 
PCM501 76 
PGM501 77 
PGM501 78 
PCM501 79 
PCMSOieO 


C ADO  CCNf«IPUT ICKS  »HCM  FORCE  CONDITION  TO  RESIDUE  VECTOR 
00  500  J* I .NOT  p 

PABA‘‘IJ«NCCF  1 • - FSUfiYiJi 

PA«A-(  P*NCCPI  • -FSUB/IJI 

500  CONT iNut 
C 

c CALCuiAiT  HACMTunr  cr  risioue 

OMAC  -O. 

c 

C SCAirS  O'PfMJfM  VAPJARITS  TO  GROER  I 
on  560  I A . l.NUPTS 
DMAG  • QMAC  * PAR  AM(  1 A I •f'AKAMi  1 A} 

DO  A?0  NT  - l.NPCl) 

6?0  *ACO»il  lA.NJI  . IACOPUA.N?!  *71 
DO  A TO  N?  * I.mCP 

A30  TACCfil  |A,NT*N^Orj|  • A AC  GO  I I A , N?  ♦NMOO)  • F 2 
00  ASn  N?  « I , I MAI 

6A0  YAC0PMA,NT»NPCPT»  • aACOB  nA,NT*NMODT  I •F  3 

A50  AACOl?  I I A ,S?nPA«  *68001  I • A ACOB  I I A , N2  • I MA I * NMQOT  I • F 6 

560  CCNTINUE 

c 

C FORM  pAThU  a transpose** 

C obtain  a TRANSPCSI  • A MATRIX  FOR  SIADILITY  REASONS 

C 

c save  oacc*!  in  aia  sinci  solution  prcciourf  is  destructive 
DO  360  |•1,^M^UT 
DU  v.n  j»i,n*'::dt 
OAcoci I, J)  • o.ro 
DC  ISO  p*  I .Nf  PI : 

DACOniNJi  • uACCrU.JI  • UeiE  1 XACOBir.i  I MXACOBIK,  J)  I 
360  CCNTIMjE 

350  ATAII.J)  • SNCL I CACOCT I . JI  I 

c 

c PERFORM  LU  D(  CC*'PrSM  I LN  rj  MAfHI*  DACOB 
530  call  nHiciOAcun.  35»\Mon2«fpEH«iStiF;(} 

c 


PCM501 Rl 
PGMSOIRT 
PCM501 8 3 
PCH501 86 
PCM501P5 
PCM50I H6 
PGM  SO  I 8 7 
PCH50I 88 
PGMS0IB9 
PCMS0190 
PCM501 
PGMSOlO? 
PCM5019) 

PCM50196 
PCM50195 
PCM50196 
PGMS01N7 
PCM50108 
PCHSOl 09 
PCMSOTOO 
P0M50J01 
PGHSOT.O  2 
PGMSOTOl 
PCM'»0jn6 
PCMSOTOS 
PCPSB-'*n6 

PCMSO.’n  7 
PGMSO/08 

PC'".0?O9 

PCMSOTI 0 
PCMSOTl  I 
PCMSO?  I ? 
PGMSOT I J 
PCM50? I 6 
PCMS0T15 
PCM'.O?  I 6 
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C IS  SUOROUTiNf 

c 

C CRtCULATf  OEirw^-INANT  OF  ATA  HA1RIK 
DET  • FLOArilS) 

C 

C CALCUlATf  AT*»  vrCTO" 

DO  }?0  l-*,NH002 
Of  » • OFT*S:i'*A  I DACnOt  I • n 
OAAAM(  I I • 0.1)0 
DO  120  J« ! .NCOTS 

320  OAFAMlIl  • OARA*<lll  • O^lf  I lACOflJ*  II  •^ARAm  J I) 

C 

C OUTPUT  DETC«*'I^ANt  OF  ATA  KATRfl 
WRITf  l6*6fiC)  Of  T 
C 

C AS  CHfCK  FOR  SCIUTIOA  PROCfOURf.  COPPARf  OAAAM  wtTH  FMINS 
C 

C OUTPUT  A IRA^iSPGjf  • fl  vrCTOR 

WRITF.  I6.R<>0)  lOAR^HlilT.lL  ■!  tAtHGO^  ) 

C 

C SOLVE  SP'ULTA^fOUS  LINEAR  EQUATIONS 

CALL  OHSCI  CACGB.  3*4,  |PCR.NH002*OiOARAM,  IfA) 

C 

C subroutine  OhSC  is  lOR  SLMATH  SUBROUTINE 
C 

c calculate  a transpose  a • k vector 
00  SfO  10  •I.NMO02 
FMINSI IB)  *0. 
on  sTO  je  •ifNHCui 

5?0  fHlNS(ie)  • FMfNSIlBI  • ATA  ( 1 0, 4BI*SNCL I OARAHI JB 1 1 
C 

C OUTPUT  CMCULATED  A TRANSPOSE  A • * VECTOR 
WRITE  I 6,940)  (FHINSI 1 0 I • 10« I, NHC02 I 
C 

C OUTPUT  PflfOICTFC  CMASCfS  I N r |N  A T A M • AT  ft 
WR  I Tt  (6.94,0)  (OARAMdE  ) * I E« I , NM002  I 


PCMS02 1 r 

PSH*-o;  i B 
PC’^SOc’  19 
P5“S0220 
PG*4'.0??  I 
PCf*60?22 
P&“^02?  1 
PC“S0224 
PG^''»022S 
PC‘'^0226 
POMSO;?  7 
PGHS022H 
PG'‘*''229 
PGHSO?  10 
PC^SOJ 11 
PC''S0?12 
PC^'SO?  1 1 
PCM'io;  14 
PCMS02 IS 
pc^'so:  16 
PCHSO?  1 7 
PCHS02 ' 1 
pG^so;  19 
PGMS0240 

PSM'024l 

P0MSO242 

PCHS024 j 
pchso;44. 
PGMS024S 
PC'*S0246 
PCMS024  7 
PGHS0248 

PG*‘S02S0 

PGMS02SI 

PG.*S'32S2 


C 

C calculate  PELATIvf  -AGNlTUlOe  OF  PREOICTfO  CHANGE  IN  VORTE*  POSITION 

Of  I I F Af  !*JP/SNCL  (OSCH  f (UARAHI  \ ♦NMOOT  I ••2*0ARAM  i J *LMA*  ♦ NRODT  )**2)  I 
iFdifLl.ri.l,  ) rELl*l, 

C 

C calculate  RELATIVE  PAGNMUOf  OF  PRECICTCO  CHANCES  IN  HORSESHOE 

c vORiicir>  coefficients 

ANUP'O, 

0NUP»0 . 

00  620  IK*  I ,NOCH 
00  620  JK- I ,NDSM 
ANUR>  ANU^«A(  IK,  J«;)«A<  IK,  JK| 

ONUH  • DNUR*  SNGKOARAHJ  |K«(JK-U*N0CF'»|RP2 
620  continue 

0EL2  • S2*SCRI(ANUM/0NUM|/FI 
C 

c USE  smaller  or  th:  two  scales 

ir  iDrii.GT.ori2i  oeli«  oei2 

c 

c output  scales 

WR|Tri6,93C)  S2,0tLI 

c 

C CALCUlATf  NEW  VCHTICITV  COEFFICIENTS 
00  600  1-1 ,NOCM 

00(11  " 00(11  « DCll«SNGLIOARAM(NNOO«l  IIRF? 

00  600  J«l ,ftOSH 

A(|,J|  • A(1,J)  * 0Cll»SNCL(0ARAM||4|J-||RNOCM))  •FI 
600  CONTINUE 
C 

C CALCULATF  NEW  VCRTt*  LOCATION  COEFriCirNTS 

00  ssn  i-iaMAK 

CWGRin  • CVVORI  I l*UCl  IPSNOL  iCARAHI  I ^KHEiDTIMf  3 
SSO  O/VUHd)  « OlVURd  )*DEll*SNCL(OAkAMf  |*LHAX«?4M0nT||#FA 

c 

C OUTPUT  NEW  VOHTtCITV  CUE E r I C I E N T S 

WRITE  (6,920)  l(Ad,J),|«|fNOCMUJ*t,NQSM)dOOlR),R*I.NOCM) 


P0-S02S3 

PG‘'S:2S4. 

' S 

PG-  2S6 
PG-SG2'-  7 
PGM'*O?S0 

PCMS02S9 
PCHSO^^O 
pcMsn26i 
PCM50262 
PGMS026 1 
P0HS0264 
PGMS0.*6S 
PGMS02F6 
P0MS0267 
PCMSCrSfl 
PCMS02'.9 
PGMS02  70 
PG‘"'^2  71 
PGMS02  72 
PC^SO?  7 ) 
PGMS02  74. 
PCMS02  7S 
P&MG02  76 
PCM'.02  7 7 
PC^'S02  7a 
PC*'S02  79 
PGMS02 “O 
PGM  *^0;  HI 

P&>'S02"2 
PGmGO.*  ' ) 
PCMS02H4 
PG*^'02  IS 
PCM‘'02'‘6 
PGMsn.'**  F 
PGMS02Brt 


c ouTPur  MW  voRici  iccArioN  cof rrictcuTS 

wmTri6.9S0l  CVVCH.C/VOM 
D*1AC  • SO^IID^ACI 
C 

C OUI^I  ItfNAIICN  NO.  AND  KCSIOUC 
WRITl(6,OA0l  ITR.ONAC 
C 

C CHfCK  rCR  CCNVfRCrNCt 

If  {DMAG.LT..OOII  CO  TO  ttO 
000  CONTINUF 
010  CONTINUE 
C 

C OUTPUT  JACOAIAN 
C 

WR  I If  I b. 'll 01  H lACOnt  IC«  JCl.Ji  •l•NPOD7}•tG•l  .NOPTST 
C 

C PUNCH  NfW  VO^Tf*  inCATION  COfmCIfNTS 
WR  I tf I 1,0^01  CVVCH 
WRITf  ( /.0*iOI  C/VCR 

c 

C PUNCH  NEW  VORTiCITY  COrfFTCIENTS 

WRITE  I MA(  l•Jl•l«t•NOCH)•J•l•NOSNI•(COIR)•R-l•NOCH) 

C 

^01  f ORMAT  I^IS.2l^.n0.bl 

0 30  fnHMAl|‘  PRCCP.AN  V CALCULATES  VORTICITV  tOCfflCUHTS  *ND  VORTEX  LO 
CCATlu:;  fRO«  INITML  GUfSS  APRIL  29*197r*,//l 
040  fORHAT|SF|4.S,l*,*&Y|  I-  SIM 
0SO  forma;  ISf  14. S,  U .•C7T  t-  SIM 

SbO  FQfiHATi*  nCTERMiNANT  OF  THE  JACOBIAN  IS**»E14.5) 

aro  fflRMATI 'OCMUWS  PTS  •*  . n.  1X#*SPNWS  PTS  ••|ll•^X*•SfNISPAM 

Cf  b.  3.  3*. 'CHOWS  MOOES  ••,l3f1«**SPNWS  MODES  «* » H* JX* *0* • * # F /. 4 I 
0 00  FORMAM?liO.F10.4,2f  10.F10.4I 
H90  fORMAT(2IS, jriO.61 

900  FORMAT  l*Q  CH(jF«  OF  VORTEX  APPROX  l«AT  ION  I S*  * 13, 3X  » •FACTOR*  • , 

Cf  10. b, 3X, 'ANCLE  CF  A T T ACR* • .F 1 0.6, JX* •NOf P* • • t J I 


PCM**02A'I 
PCN'.O ' FO 
PCN'»02'>I 
PCNS0292 
PCPS02'M 
PCPSOP'iA 
PCHS02IS 
P&MS0?'>6 
PGHSr^'U 
PCMSO?90 
P&MS0299 
PCM SO  100 
PGMSOIOl 
PCMS0102 
PCMSOIOI 
PCMS0504 
PCMSOIOS 
PCMSOlOft 
P&HSO 10  t 
PGMS0108 
PGHS0109 
PCMSOIIO 
PGMSOUl 
PGMS01I2 
PCM  SOU  1 
PCMS0U4 
PGMSOUS 
PCMS0U6 
PGHSOU  7 
PCMSOU0 
PCHS0U9 
PCMS0120 
PCMso);i 
PCNSOl?? 
PCMS0325 
PCM50324 


9 I 0 T Oe-AT  I 10  E M.4  J 

9?:  F„>*'Mf*0TrE  vAicrs  cr  a.cc  arev.iseia.s}) 

9):  'XAl'  from  CHANGf  IN  LCADINO  COtFF  |C  I FNl  S- • , F 1 0. 4,  SX  , 

C ' CM  I ' ' ,f  IC.S,  / 1 
940  rrR*‘Ar{Sf  ia.si 

9S0  rURHATIMUt  values  OF  CYVOR.GZVOR  ARE*/  (SE14.SM 
970  fORHATMM  ,MNTfC«<AT|nM  PTS.  IN  REGION  3- * , I S , SX , • I N CMOWS-'.IS, 
CSX , • IN  RESIGN  1 • M I s I 

900  FORMA  (‘0  AFTER*, II, • ITERATIONS,  RtSIOUC  IS  •*.fl0.6,/) 

STOP 

ENC 


PCMS012S 

PCMSr>12b 

PCMS0127 

P&MS0128 

PCM40129 

PCMSono 

PCH'OIU 

PCMSOIJ? 

PCMson3 

PCMS0334 

PCHS031S 
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eiOCK  OAT* 


RLr  >0'.  'I 

C GAUSSIAN  OUACRATUAf  AOSC  I SSA  AND  w£  I CHf  S 0lK..o.i,)j 

^ OL^DOO^/. 

COf'HON/iAUN/CNI  I C*  10  » • >iNt  10*  101  /OAUS/ 

Buriooji 

DATA  GS/<«n*0..  BlP-bOlOf 

1 - .^0#»  I 7'^fl,  - . ^ J , 0 . 0 • . '>0M  7'>0 » A5*0  • * RL».L;0?''9 

2-,07\9nf.S.*.fl/»Sn6'«n-«ft  794096  ,-.4))}9'.4,“,|4'JA74»,  BLk  0000? 

3 .l4Afl745,  .41»\9S4*  .^/94096«  .''^S0^^4•  . 9 7 i90ft  0 / , WN/ 40*0 . » BL'^-OOIO 

4 .?1<9269,  .47P62H7,  .S<.AI»He9,  .47B6?‘»7,  . 2 349  , 4 S*0  . , BL^'OCOIl 

5 .06^471),  .1494S11,  .?190«64*  .26‘>26'7.  .204^^4?,  BLkCOuU 

6 .29S**?4^,  .?49?t47,  .ri90t»64,  .!4Q4Sn,  .0644715/  BL'OOOll 

DATA  C/-.09Sie 72 , ' .9  74  7/86,-.938?746. ' . ft86415S*-.  a200020.-.  740124?  BLK00014 

i , - .64809  16,  - .44S4  MS.  - . h 3 3 79  39 . - . 3 1 504  2 7 . - . 1 9 1 U H 0 . 0 640S69 . 1 2 • 0 . flLKOOOl  S 

2/, H/. 0123412,. 02 05  U4, . 0442 7 74, .0592986 , .07334  65,  .0861902.  BL 4000 16 

3.09  761 06, . 1074  44  3, . 1 155057, .1216  705,.  1258  3 74,.  12  79  3 02*  12*0.0/  BLKOOOl 7 

r^n  BLKDOOIS 


FUNCTION  Ailvi 

0001 

c 

PP^2 

c 

AllYI  PHOVIOCS  LOWFR  UNIT  FOR  SURFACE  INTCCRAI 

00.1 

c 

ARRCU  WING  COTIFICURATION 

0004 

c 

OOPS 

c 

ARCUMfNT  LIST 

OC06 

c 

Yi  SFANWISE  COOROITIATE;  NON-0  by  NAAIMUN 

length 

0M7 

c 

00:8 

CONYON  XPT.YPT, S,N,N 

0009 

A1  • ABSlYi/S 

0010 

RETURN 

0011 

END 

0012 

c 

001  3 

c* 

c 

OOlS 

FUNCTION  A5IYI 

0016 

c 

0017 

c 

A5IYI  PRCVIOCS  LOWER  LIMIT  FOR  SURFACE  INTEGRAL 

0016 

c 

ARROW  WING  CONFIGURATION 

c^n 

c 

002  0 

c 

AROUHINI  LIST 

002  1 

c 

Y>  SPANWISE  COORPINATE:  NCN-0  BY  MAXIMUM 

LENGTH 

0022 

c 

0025 

COMMON  *PT,YRT,S,M,N 

0024 

VI  - A8SIY1/S 

0025 

IF  |V1.GT.|XPT«.02M  CO  TO  20 

0026 

to  A5  • XPT* .02 

002  7 

RETURN 

0028 

20  A5  > Yl 

0029 

RETURN 

0030 

END 

00)1 
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FUNCTION  niN.S) 


C 

C *FM|CHCRO  NQNOINI  NSIHNAL  ficl)  BV  RGCT  SCHtCHORO 

C AMMOw  WIN.*  CONF  ICURRF  ION 

C 

C ARGURFNT  II5T 

C N:  SICTION  no.  tNOfCAfOR 

C S:  SPANwISr  COOROtNATC:  NON-0  BY  SrniSPAN 

C 

B«1 .-ABSI SI 
RF  Turn 
€NO 

c 

C ••••••••••••••••••♦••••••••••••••••••••••••••• 

c 

function  ILFINtSI 
C 

C XLC:  OFSCRiatS  LfADr^r.  (OCF  OF  W|NC:  NON-D  BY  WINC  ROOT  SEMtCHQRO 
C ARROW  Wlf.G  CONFICURAF  ION 

C 

c AHCUHCNT  I tsr 

C N:  SFCTION  NO.  INDICATOR 

C s:  SPANWlSf  COORDINATE:  NCN-0  BY  SfNICPAN 

C 

COMMON/PLAN/CR 

ILE  • >l.«2.«AeSISI/CR 

RE  TURN 

END 


0001 
Ono? 
000  ) 
000<I 

ooos 

0006 

000  7 
OT.OB 
0009 
OHIO 

001  1 
0012 
001  ) 
0016 
0015 
CO  1 6 

001  7 
00  IB 

0019 

0020 
0021 
0022 
002) 
0026 

0025 

0026 

002  7 
0028 


FUNCT ION  05(YI 

oori 

c 

0002 

c 

B5 

PM0Vlur$  rtANFORR  IIHIIS  TO  INTEGRATION 

HOU( INC 

000) 

c 

ARflCW  WING  CO%r IGURAT TON 

0006 

C 

0005 

c 

argument  list 

0006 

c 

v:  5PANWISE  COORDINATE;  NON-0 

BY  MAXIMUM 

length 

0007 

c 

OOPB 

COMMON  API  fYPT.St^'.N  /PtAN/C;* 

0009 

B5  ■ AflSI  Y Ml  1 .-CKl/S  ^CR 

0010 

RE  TURN 

0011 

END 

0012 

c 

001  ) 

C‘ 

»••• 

c 

0015 

fUNCT ION  fl7(Y| 

0016 

c 

0017 

c 

B7 

PROVlOrS  PLANFIR**  UMirS  FOP  TNItGRATirN 

ROUTINE 

0010 

c 

aprcn  wing  configuration 

0019 

c 

0020 

c 

ARGUMENT  list 

0021 

c 

y:  SPANwISC  COORUTNAIC;  NON-0 

BY  MAXIMUM 

LENGTH 

0022 

c 

002  ) 

COMMON  APT  ,YPT,S,M,N  /PLAN/CR 

0026 

IF  lY.CT.5»|XPr*.02-CRI/ll.-CRn  CO  10 

20 

0025 

B7  • AQSIV1«II.*CRI/S*CR 

0026 

RETURN 

002  7 

20 

67  • XPT« .02 

0028 

RETURN 

0029 

END 

00  )0 
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fU^4CtlON  OIOT!V.vyC»TI 

c 

C UiDr  PMOvlUfS  orsivAfivr  ro*  j*cCflA*« 

c 

C *«CU^CHT  I 1ST 

c t:  SPANMfSt  CCG«U|N»TC;  KCM-0  tf  LCNCTm 

C VV0«T:  VC«TF*  SPANkilSt  VON-D  BV  MAI.  LfNCTH 

C 

c factor  of  U:»L-l)  OUTSIDE  Of  FUNCTION 

C0^*^0N  *P|  itOUH.S.KiPI’  /SEC/  IVORT  /^LAN/CR 
yoiff«v-yvort 

xtocr  • c«  •t*  1 1 .-tR I /s 

XOIFF  • XECCF-«PI 
TrR'^l«YDIFF«YOlFFWvORT*ZVORI 
Tt«Mj*TERMl«IO!FF*X0IFF 

OtOY  - Y0IFP/T€RHl*l2./TeRNl*ll.“*Dlff /SOBTITERNin 

C -XOIFF/t  TEP.«?*SCRT!  I 

RETURN 
END 


OIDYTOni 
01. von*): 
D I f 0 n T 

0 I f:  vnM''<; 
010  Y O'; 
OIuyOTO^ 
OIOYOTO  f 
niOYOooe 
OIDyOOO'} 
DIOYO'IIO 
DlOYOOl I 

oroToow 

OIDYOOl 3 
DIOYOni^ 
D IDYOOl S 
OlOYOOU 
n I 0 y 00 1 f 
0ICY3018 
OIOY0O19 


FACTION  OfO{lT«YVORn 

c 

c 0I0<  PROVIDES  DERIVATIVE  fO*  JACOBIAN 
C ARROW  WINO  CONFIGURATION 

C 

C ARGUMENI  L I ST 

C Yt  5PANWISF  COOROINAtr;  NCN-0  BY  KAXlKUM  LENGTH 

C YVORTs  VQRTCx  SPANMISE  PflSITfONT  NON-D  BY  MAX.  LENGTH 

C 

C factor  OF  TI7»L-n  OUTSIDE  OF  FUNCTION 
C 

C USE  MULTIPLE  OEFINITIUN  TO  REDUCE  TRUNCATICN  EAADRS 
REAL«8  YOITF.XOIFF  » TE RM I . T C RM? . A 
COMMON  XPI ,VPT  .S.w.MP  /PLAN/CR  /SEC/IVORT 
YDIf r • DBLE ( Y'YVORT I 
If OCE  • CKYV*  I I .-C« I/S 
lOIFF  • O^Lf ( XfOCr-»P| I 
TERM  I > YDIFF •V0IFF4U6LE liVORTRZVONTI 
A>TERNl/|iOirF*XCIFFl 

iriA.Lf ..ooSDci  cn  to  loo 

Tf RM2- TrKMl«XO|rr«XOIFF 


DID/  • 2V0RT«SNGLn-2.00/TERM|«(U0O'>0IFF/0S0RTITERM?|  )» 
C XDIFF/i  Tf  RM?«0SCRTITCRH2n/TCRMi) 

RETURN 

100  did;  • /VCRT/A.RSNCLl 1*3.004). OOPAI/KOIFfPPAI 
RETURN 
END 


DIO/DDOl 
0ID/C-'07 
Die  TOC  3 
DIDi’OenA 

oionoo'^ 

OIDTOO'‘6 
0 10/0007 
DID/0008 
0 ion'll 
0 1 '.  / 0 ' : 0 
D I : / *:  • 1 1 
0 1 0 ; " * 1 7 
Dir/o* l 3 
OIO/OOI*. 
Dio/oo; 
DID  /O'  1 b 
OID/DOl  / 
D I 0/00  I 8 
0ID/0*10 
010/0  J70 
010/0071 
010/0327 
010/00?) 
010/0024 
OI0/007S 
010/0076 
010/0077 
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r u^C » ins  f vix.vPi , jiPT  1 

FV 

onoi 

c 

F V 

onn; 

c 

ctvrs  coNTRiPunc^  nxm  Lr*oiNC-rocr  vcktc*  to  v 

F V 

OOP  J 

c 

FV 

0004 

f. 

AQCUntNT  1 tsr 

FV 

nuos 

c 

i:  CnOM.)wlM  rHtCCBkffrN  POINf;  N0»i-0  OY  HAXIHUH  LfNCTM 

FV 

0006 

c 

YPT:  location  CP  CCHIROl  POINT 

FV 

000  T 

c 

inr:  CMn*(:’H|SF  CONIRHC  POINT;  NON-D  DV  MAItHUN  LENGTH 

FV 

ODOR 

c 

Lf  T 

*PT  «0.  TO  US*  fiS  WiNi 

FV 

Cono 

COPHOS/CVCR/  GVVCPI SI .C/VORISI  /SEC/fPT  /VIOC/LMAX 

F V 

0010 

PI  • J.  1 «.  ISO  J 

FV 

0011 

c 

FV 

0012 

c 

c*icui*if  loCATioN  or  voBffK 

FV 

00 1 } 

CALL  r NC  loi  cv  vna  , 'J'AI , K . WORT  ) 

FV 

0014 

CALL  r SC T N 1 c/ VCH  .1 "A < » « ,/VCRT 1 

FV 

OOlS 

CAL  i cr  t {G/vnR.L?‘As.J.D2vO'»f  ! 

FV 

0016 

ini*f • Y-iPi 

FV 

001  7 

YO If  » • YVOKl -YPT 

FV 

OOIR 

/OIff-/VO»!-/PT 

FV 

0019 

r W • 1 ;0 1 f f KOir f *0/ VQRT  t/|4.pp|p  iXOIfFPXOIFT ♦YDIFFPVDIPF* 

FV 

0020 

WOIf  f •/Olff 

FV 

0021 

XF  TURN 

FV 

0022 

(NO 

FV 

002T 

function  f V(X,YPI  ) 

FW 

OOQI 

C 

FW 

0002 

C 

Fh  GivFs  cONrmnutirN  o*  lcaoino-eoce  vortex  to  h 

FW 

000) 

C 

FW 

0004 

C 

XRCURINT  1 isr 

FW 

OOOS 

c 

k:  CMOROnISL  INKCKATION  P0|r4I;  NON-0  OY  MAXIMUM  LENGTH 

FW 

0006 

c 

v;>T:  SPA»hlSf  COTilROl  POINT;  NON-0  BY  MAXIMUM  LENGTH 

FW 

0007 

c 

FW 

00C8 

c 

TO  USf  LN  talS'i.  (fl  /PI.0,0 

FW 

0009 

Cr  ‘'H  j-;  IPI  ,YUUR»S.M.N  /StC//PT  /VIOC/IMAX 

f W 

0010 

CU»'MU‘i/r,vnK  /CYVO*<  ( SI  .OTVOKTSI 

FW 

001  1 

P|«  J.  141S91 

FW 

0012 

c 

FW 

001  ) 

c 

CAlCULAI*-  inCATICNOf  ITAOING-COC.  VORTEK 

FW 

0014 

call  F nc t NI Cv VOR  .L max, X, yvORI I 

FW 

OOlS 

CALL  r NCfMC2vOR,lMAX,X,2vO«T  1 

FW 

00  1 6 

CALI  Cf  NC  T 1 CYV(}R,LMAX,X,OVVORT  » 

FW 

001  7 

xoirr-«'*PT 

F W 

0016 

VO  I r r - vv jK  I - YPT 

FW 

0019 

lllff  '2VOKI-2PT 

FW 

0020 

FW  -1  XOl  FF  •OW0kT-VO|Fn/UXO|fF*X0IFF*VOlFF*YOlFFA201FF*2OIFF  » 

FW 

0021 

l••I.S•  4.YPI  I 

FW 

002? 

Rt  TURN 

FW 

002) 

END 

FW 

0024 

FUNCTION  CV0RT|H*X,V« SI 

1 

c 

CVO'lA'^r? 

c 

CVORT  calculates 

vorticitt  strength  on  wing 

our  TO 

lcaoinc^edce 

CV(:«0.)  3 

c 

VORTICES 

c 

CVU'JOO''S 

c 

ARCUMfNT  L 

»ST 

c 

M ; 

MOOAL  SPFCIf ICATION  PARAmETFr 

CVGWOOO / 

c 

X r 

CMOROwISt  POINf  CF  INTt«»‘ST 

: NON-0 

BY  MAX.  length 

c 

y : 

SPANwISC  POINT  OF  INTERFSTJ 

NCN-D 

BY  MAX.  LENGTH 

Cv  :Rnoo9 

c 

S: 

semispan:  NON-0  8V  HAllMUM 

Lf  n:tm 

GVORO'^l  0 

c 

G'/OMCOl  1 

PI*  I.IAISO) 

CVQP0D12 

CONST  • PI •rL0ATI2*M*ll/?. 

CVOmOOI } 

x;y2*S0RT ( x«K 

• Y«y  1 

CVOROOl*. 

XCDCC-X2Y2/S0RT(  l.*S*SI 

CVOROOIS 

GvCh  T -cons  7 *C 

GS{CCNST*»E!>C*E|/XTY2 

&VOB0016 

RETURN 

CVOROO 1 7 

ENO 

CVOROOl 8 

ruNcrtON  McvLCi) 
c 

C XOVL  C*LCUlATtS  COwniUCTfON  TO  V F«0m  im-MfiNO  VOftTt* 

c 

C ARCUMPM  LIST 

C x:  CHQROWI56  rNTCGFATION  FOINT:  NON*D  SY  MAX.  ItNCTH 

C 

COMHON  XPT  ,YPT 

C0NSI-F10AH2*HMI/2.*PI 

XCVL  --SIN{CONS!«X J*rv(X,-YPT,XPT| 

PE  TU«M 
END 
C 



c 

FUNCTION  XCVTIYI 

c 

C XCVI  Gives  CONTRIBUTION  OF  WAKE  VORTICITy  TO  $PANw|St  VELOCITY 
C ARROW  WING  CONFICURATION 

C ARGUMENT  list  * 

C Y:  SPANWISE  COORDINATC;  NON-0  BY  MAXIMUM  LENGTH 

C 

common  XPT, YPT,SiM,MP/SEC^ZPT  /PLAM/CR 
PI-3.IAIS11 

CONSI*PI*f  LCATI?*«*n/2, 

XEOOC  • CR*Y«n.-CRI/5 

X?Y2  ■ SOM  T exrO'',E**?*Y*v) 

XFDGe«X?V2/SORTI l.*S«SI 

COf  wT"-COriST»COSICONST*xroCFI 

XCVT  •>/Pr«COCLT«IXf (Y,VPTI-X| |Y,-VPT) l/t A.*P|  | 

RE  TURN 
ENO 


0001 

OC''? 

000  i 

ooo<. 

ooos 

OOOG 

0007 

0000 

0009 

0010 
0011 
0012 

001  3 

0015 

00  IS 

0016 

001  7 
0010 
onto 
00?0 

0071 

0072 
0C73 
007A 
007  S 
0026 

002  7 
0020 
0020 
0010 
OOM 
0012 
00  1 1 
00  u 
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rUNCT ION  IGMl t«l  000 t 

C OOO? 

c fcul  CAicuiATts  cnNTmftuiiON  to  y nton  irrf-HANO  voktei  ooo> 

c 0004 

C ARCUMfNT  LIST  OOOS 

C t:  CHOROwlSf  INffCRAttOy  POINT;  NQN>D  OV  NAX.  LENGTH  0006 

C OOOT 

COHHON  *PT  ,VPT  OOOfl 

PI-  ». I 4|sn  j ooog 

CONS! -ri  n\T  i?«H* •PI  0010 

<GWL  -SINICONST^tl^firflK.-VPIl  0011 

AFTUPN  0012 

END  001) 

C 0014 

00  IS 

C 0016 

rUNCTlCN  iGwTin  001  7 

C 0018 

C xCmT  gives  CQNTAIPUTIUN  UF  WARE  VOPTtCIfV  TO  OQUNWASH  0010 

c eo?o 

C ARGUMENT  LIST  0021 

C v:  SPANMlSt  COOROINATC:  NQN-0  BY  MAXlNUN  LENGTH  0022 

C 002) 

C TO  USE  ON  WING,  LET  /PT-O.O  0024 

COPHON  *PI ♦tPl ,S,N,POUP  /PLAN/CR  0025 

P|«).141S0)  0026 

CONST*PI«flOATI2*H*l 1/2.  002/ 

XEOGE  • C«*Y*n.-C«  I/S  0028 

*2V2  ■ S0RIUfnCE**2*t»YI  0029 

lCOCf-X2Y2/SOMT( I . «S*SI  0010 

COELT '-CONST pens  ICONS T*xrO&Cl  00)1 

XCWT  •-GOELTPI  IV-YPTl*XllV,YPTI*IV*TPnPXIfT.-YPTn/l4.*Pn  00)2 

RETURN  00)3 

CNO  00)4 


FUNCTION  XIIY.YPTI 

XI 

ooni 

c 

X 1 

0002 

C XI 

GIVES  CONTRIBUIION  f«CN  WARE  VORTICITV 

X 1 

000) 

C 

ARROW  WING  CONI ICURAI  ION 

XI 

0004 

C 

XI 

0005 

c 

ARGUWINT  IISI 

XI  . 

0006 

c 

y:  SPAKwISE  COORDINATE;  NCN- 0 BY  HAXIHUM  LENGTH 

X 1 

000/ 

c 

yPTJ  VOkT*^X  SPANWlSI  LOCATION 

X 1 

0008 

c 

XI 

0009 

COMMON  XHT , YDUM. S,N,M  /PLAN/CR  /SEC//PT 

X I 

0010 

A«|Y  YPTI* IV-YPT l•2PI•2Pr 

XI 

001  1 

XEOGf  • C«*V*( l.-CRI/S 

XI 

0012 

8 • XEOGf  -XPT 

xt 

ODD 

XI-  1 1 .-8/SCRT 1 A#B*R I I/A 

X ! 

0014 

RETURN 

X I 

0015 

END 

XI 

00)6 
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sunuituTiNC  CHOii'« 

c 

c cmdws*  £v*Lu^T|^•J  jr  fno«Okif*;f  iMff.ftAi  tsi  if  of ‘^oai-gauss 

c 0U*l’***fW'5r  ‘O'*  CnM.UBUflCN  ff  VflOCM»  fiN  VOHfC* 

c 

oi>it N'i ICN  nr  r A ncj . tuf  TA<  io».  - *i  101  .Ai iM 

ca*'*‘ON  /j*co  '/  ny  I ift» •DRomoi.nKvf'vi  loi .inttov m tXDMOZ c ^ . 

c "Dvjyisi  /CAUN/CNio,»oi,wriio,ioi  />'(j;:rs/‘4(>c»*.NCS»* 

C /Wnv?/A«|  4.,S.«*1  .AISJ  •fllr.C.CHtSI*  URI  iO.XUC.SOS.ViZ.VMN.^HZ, 
C RSOHtfTAtCAUlXf in)«PO^tNCR*HP«N«KtC2iJl*J2»wS*VHN2tZN22»CSR 

CfjMNr.N  /SJWSM/  TKVHI  10),AVR(A*5«M«CV'<151 

c 

c iNiri«ii/r  '•jMMAiroN  variabiCS 

GO  I l-J.NCCH 

Cfl 1 1 1 -o.n 
CVR I I)  »p*o 
ICWOY ( t » *0.0 

xcmu/ { : ; :n,c 
lOvov ( I ) •n.o 

I CONflSUf 

c 

C CALCULATf  LOCAf|Q‘<  OF  LtAOf.MO  fOCC  ANO  LOCAL  SCHIChORO 
c N0N«0  nt  MOOT  SfwlCHORO 

fLE*«LC (S.CSJ 
SEMiCn-BIN.CSJ 

c 

C in HSOR- . I )>0*  The  ISTEGRAL  is  FVALUATCn  AS  A SINGLE  INTEGRAL 
IF  {hSOR-O.II  21.T.I 
S IF  (NINCI  A. A,  7 
A Nine* 2 

00  S IM.NCR 
C 

C CALCULATF  ANGULAR  SPACING  FQA  INTEGRAL 
BETAI  n»l  U-  ;N(  UNCPI  )♦P02 
CXI  I l•-COSleF  TAI  I » \ 

00  S J-UNOCN 


CHUv-nn''  I 

CHi»wT)n  i 
Cmu^nO  in<, 

Cun*.  )nDS 
CMD^yOnnA 
CHfi  k.OOOf 
CHOrt'^GOB 
CH()«C109 
CMuwOOlO 
CMO..OO  I I 
CHOhOOI ^ 
CHOwOOl 1 
CHOwOOlA 
CHOwO'^l  ^ 
CH0W0016 
CHUwOOl 7 
CHOwOTI 8 
CHUWUUH 
CMDwOO^O 
CHDWO'??  I 
CMDW0022 
CHUV,03’  i 

CHOk-OO^A 
CMD-OO.’S 
CM0K30’6 
CHO^O:.-'  7 
CMOhOo^e 
CMDwon^R 
CMOhOO  O 
CMOhO*}  u 
CMOWOO  ^2 
CHowo^n 
CMD-GMA 
CMDW53 IS 
CHDaOQ  16 


ALSIJ.It-SIMBFTAII  I «F  LOAT  t J ll/FLOATI  2AP « 2*  J U *4  • 

C 

C ALSUill  • LOADING  FUNCTIONS.  RTF:  ASNLCY  ANO  LANOAHl 

5 CONTINUE 

7 00  6 I ' I , NCP 

6 GAUSXI I I ><- (FLr«Sr M1CD*1 l.^GII  I M I 
C 

C CAUSX  • r-tlt  NON-0  OY  ROOT  SfHICMCRO 

c 

c CAlCUlATf  rfR’ItLS  FQR  SUHFACF  INTEGRALS 

call  Y.tHM 

WGHT -PO^ 

00  20  I I ,NCP 

Cw*  wM  I ,Nf,P  I*  S IN  IBf  lA  M M•wGHf 
DO  2'y  J-I.NOC** 

CR(  J)  - ALS(  J,  I)  •CM«TKR  I n*CRUl 
CVRIJJ-ALGIJ.  I MCw^TUVRlUtCVRI  J» 

XOWOYI  J )•xDwOY  U !*  OKOYI  I (•ALSIJt  n*CW 

xnwn:  i j < j ) « dkozii mai  sij, i mcv 

Envoy  I j I * xL'von  j » *uAvuvi  n*Ai  SI  j.  i mcw 

20  CCNTJfJUr 
CO  TO  SO 

C 

C FOR  RSOR'.KO,  THF  CMOHOWISC  INTEGRAL  IS  COKPUTEO  BY  2 LECENORF- 
C GAUSS  CUAOHATUKfS  TO  HANDLE  FINITE  JUNP  IN  KfRNEL  AT  X-XI«Y-YI>0 
C 

C IF  X IS  OFF  WING  AT  Y,  USE  SINClf  INTEGRAL 

21  IFIX-Cin  T,l,7?0 

220  IF  ixnrif  ♦?.*srMicon 
22  Tlino-AKCOM  umSFMlCO-XI/seNlCO) 

K--1 

uCMT.lMGn/?, 
on  21  I-l  ,Nf.P 

Tor  1 A|  I ) t ( 1 ,-&NI  I ,NCP  n*IMRD/?, 

23  CAUSE!  n>X>(£lt  •Sf  NICOPII.-COSITHF  TAt  I MU 

CO  TO  3S 


CMOk.")'!? 

CHDw:- Id 
CMOw:  w 
CMO^-OO*.  0 
CmPkG^*.  i 
CMOwOO‘.2 
CmDwDC*.  1 
CMownct*. 
CHnvoo<'S 
CmOwOD‘.6 
CHC«m<.  7 

CMD-OD'-N 

*.0 

CHD«0''S  I 

CHOwP'^S  i 
CMDwC:S^ 
CMJW^O'.S 
ChOwO'»‘‘6 
CMOnOn*;  7 
CMDWOOSB 
CmOwOOSR 
CHOwO'^^O 
CMC-OOGl 
CHl)^0'''.2 

ChDk'* 
Cmo-.  '*':/  s 
CmlmO?'  6 
CMa„''  s7 
CHI)».0068 
ChOWOO'.R 
CHU/.00  70 
CH[)J007| 
CMOhOO  72 
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toOMT»P{,i-WGMl 

*•1 

DO  I • I ,NCP 

TMf  T*  f I ) ■ TMBO*  I I . -CN<  ! •NCP|M|PO;-THnO/2«  I 
2S  CAUSX(  M«x>(ELt«StMtCO*(  1 . O-COS I THE  fAI  1)  U I 
C 

C CAUS*  “ *•»! 

C 

C CALCUtATr  KFR'iCLS  FOP  !,URf  ACF  ihTCCAALS 
JS  CAll  Rf«M 

C 

C 00  CMC«0-  I >E  I stf  ,«ALS 
DO  *.0  I « I .Nf  P 
C w WN  I t , NC  p I • S I N t I MF  T A M ) ) 

on  AO  j*  1 .src*» 

AH  J ) » 5 I N(  THt  I A(  I » •f  LflA  I i JU/riOAf  I2**f  2»JI  ) *4. 

C‘<iJ>  AL  t J ) tLw*  I KM  M I • LH  i J i 
CVR(J)  AL  ( JI*Cta«  r*  VU  t t UCVAi  J» 
lOWDV ( J I >KCbOY  ( J I * rKDYl  f )«ALf J)*CW 

xnwo/  ( J » «xt:uo/  ( J I • OKo;  1 1 ikak  J)*cw 

IOVOT(  J 1 •XOVOV I J > •UKVnvE  (IKAL IJ)*CW 

c 

C CAiCVH.xOwOV,  XCWOZ*  mvov  AAC  THC  CHOROUISC  INTFGRALS 
AO  ccntinue 

c 

C LOOP  FOR  SfCONC  (NTfCHAl 
|F(M  2A,^0,50 
50  COSIINUE 
C 

c PRtHARy  CUfPUT  CR tCVft.XOwOV.KOUOifROVOV  ARE  RETURNED  THROUGH 

C CGPPON  flLOCR  TO  CAILING  PROGRAM 

C 

60  RETURN 

TNO 


CHuwno  t > 
CMOWOO  FA 

Cnnwoo  F5 
CMnkOOT6 
CHDWOO 1 1 
CMOWOU  F8 
CHUwOO  FR 

CMOwoono 

CHOWO^Rl 
CHUWOOm? 
CHOWOOR) 
CHDWOORA 
CH0U00R5 
CHOWOORG 
CHOWOOR  r 
CHDhOORS 
CHnwOOR9 
CHOWOOOO 
CHOW0091 
CMDw0n92 
CHOwOO'*! 
CHOWOOTA 
CH()w0095 
CHOH0076 
CHDWOOOT 
CHUW009B 
CMnw0099 
CHDwoino 
CHOWOIOI 
CHOW0102 
CHOmOIOS 
CH0N01O6 
CHDW0105 
CHDM0104 


sue ROUT  1 HE  COlPTlNCOROfNSPAN. XPT, VPT  ) 

COLPODOl 

c 

COl P005Z 

c 

COLPT  CALCUtATES  COLLOCATION  POINTS  ON  PlANfORM 

COL  P0003 

c 

C0LP003A 

c 

ARCUPf  Nt  L 1ST 

C0LP0005 

c 

NCCHOJ  NC.  Of  ChORDWISE  POINTS 

COL  P0006 

c 

n'.pan:  nc.  or  SPLNHisr  points 

COlPOOO/ 

c 

XMT:  CMCR'Jwlsf  point;  NCRhaiI/iO  By  1 

COLPOOCI 

c 

YPTJ  SPANWlSt  POINI;  NCRMALIZEO  BY  1 

COl P00O9 

c 

COl POOlO 

D|Hf  N*,  ION  XPT  (S  ) , VPT  <5  1 

COL  POOH 

PI  T.lAl59i 

COLPOC12 

00  10  I M . NCCPO 

COLPOOli 

10 

XPT(M  « CC5I  P 1 •f  lOAt  1 ?*|-ll/FLOATIA*NCOROn 

COLPOOIA 

00  20  J-  1 ,NSPA% 

COLPOOIS 

20 

YPT{j)  - casn LOAT ( ji •Pi/riOATi2*NSPAN»i n 

COLPOOU 

RF  TURF4 

COLPOOl F 

END 

COLPOOII 
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susaoutine  orNcr(C^,»«,x»oENi 
C 

C OFNCTN  C»LCUU*TES  Df«IVAt!vES  OF  ChEOVSHEV  PCtVNOMIAtS 
C 

c ARCUHFNT  IIST 

c OF j CnFFflCirNTS  CF  POlYMOMfAi  APPRO* IMAT  ION 

C n:  onOF'^  CF  POlVNC^tAt  APPAQR I MAT  I C»i 

C *:  CHOROmSC  AROUHFnT 

c OFN:  VALUF  of  OEHtVATIVC  OF  FUNCTION  REING  APPROXIMATED 

C 

D INC  NS  ION  CF|  M ) ,CHCaY?|M.OCHF6V(5l 
CMCny? I n • 1. 

CHEnV^I ?»«A.***X-l. 

IF  IN.L  T . T » CO  TO  BO 

csQ«CHf:pv;i?»-i. 

DO  AO  I ■ T.N 

CMFRY?  IL  » •CSO*CHtnT2U-n-CMr§Y2U-2l 
60  CGNTINUf 
eO  CONTINUE 

00  too  !•]  .N 

OCHEOy f 1 I -CME8Y2 I I l•FLQAT(2•t-t I 
100  CONTINUE 
OFN-0.0 
on  SOO  I • I .H 

)00  OFN«OFN*GF  I n*OCHCBYl  I I 
RETURN 
END 


OF NC 000  I 
Drf;f.^on^ 
DfitOOOi 
Of  MCO  •>’<. 
DFNCOJ^S 
OFNCO''n6 
OFNCOu'»T 
oFNCOoca 

Of NL^OON 
CFNC-J''10 
CF’.'c:  1 1 
otn::; 12 

O^HCOCl ^ 
OF  NCCC  i «• 
OFNCS'I^ 
OFNCO" ! A 
OPNCO^ W 
OFNCOOI 6 
C^FNf  00!  «> 
0FNC0O2O 
0FNC037 I 
0FNC0O22 
OFNCOO?  t 
0FNC002A 
0FNC0025 
0FNC0026 
OFNC0027 


SUBROUT IMF  0C«CM(0CNCM2f0CNSM6«GwCMwl  t 

C 

C OGUCH  CALCUIATES  CONTRIRUTION  TO  N FROM  tEAOlNG'COCF  VORTICES 
C 

C ARGUMENT  1.  I ST 

C UGNCM?:  CONTRIBUTICN  to  Y DERIVATIVE 

C OGHCma:  CONTRIBUTION  TO  I OfRiVATiVf 

C GWGNWI:  CONTRieurtON  TO  H VElOCIIV 

C 

DIMENSION  TCHI  BYlS}»UCHCnvCS>«SUM2l5,SI,$UH4f >AIA»  vBI  A|  , 
C OCwGM2(S.)I.OGwGN<.(S,^|»0»>GMMUSI.SUM(SltOrwOY|S),DFWD/IST 
COMMON  *PI  ,YNI  ,S,MOUM,MPOUM  /G AUS/GI I , Wl  26 » 

COMMON/  CVCR/CYVORISI  .C2V0RIS>  /VlOC/I.MAX/FtOOC$/NOCM»NOSM 
C 

PI*  T.I61A9J 
C0NST2*  l./l8.*Pn 
C 

C C0NST2  • 1/16. API  I • 1/2  TO  SCALE  INTEGRAL 
C 

C INITIALI/F  SUMMATION  VARIABLES 
on  100  I-U5 
SUM! I 1*0. 

00  too  J-l.S  * 

SUM2I  I • Jl  - 0. 

SUMrI I , JI  - 0. 

100  CONTINUE 

c 

C NANT  FOUR  CALLS  TO  INTECRATfON  ROUTINE 

DATA  A,ft/0...|2S..2St .Sr.l29«r2S,.S,l./ 

00  TOO  IC«t|6 
8HA  • B(IC)-AI ICI 
8PA*fiI  ICM  A|  ICI 
C 

C 00  CHOROwtSE  INTEGRALS  BY  2A«PCINT  GAUSS.  OUAO. 

DO  200  J*1 .26 
C 


OGWGOOni 

OCM';oor>2 

OGMGOOTT 

DOKGOOC6 

OGWGOOOS 

DCWC0006 

OCWC0007 

DCKCOO^B 

DGwr.mo*) 
DCWGOOIO 
DGwGOOl I 
DCWC0312 
OGMGCOl  1 
0CWC0016 
DGwCO'^tS 
DCWCOOIA 
OCwGOOl 7 
OGM00018 
OGwGOOl 9 
0CW.O020 
D&hCOO? I 
DGwGO''?? 
OGWGOO/ T 
OGwGOJ/6 
OCHG^ri^s 
DCH''.0f)?6 
0CHG002  7 
ocwr.oo?8 

DCwr,0029 

OCwGOOTO 

UGWGOO } I 
DCw:,nm2 
OCwGin^T 
OGmGOO  16 
OCwCO''  4S 
OCWCOO  ^b 
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c lAicuiAi'  iNriaMrni4tf 

I • I nM4«f. I j I • 

C 

C caiCUMTJ  cmfmymiiv  p'iv\r»*Mis 

(.*11  fucni  Ru  •■*«.«.  KMf  evi 

C 

c c*icuv*it  voi^Tfi  »»rMMnN  *Nn  oiRtvAtivts 

CAll  rSLTK(&VW(l«,l  RAt.il, vvcaf  I 
C*l  I NC  TNIC/VCtt  ,l  RA*,«,/vC«f  > 

CA.l  Of  NC  T ( r,V  VO><  .i  HA  A • A.OTVUOr  I 

C 

C CALCUlATt  INIfRHHKATf  fACIORS 
105  ff  I XP! 

VOtff  VV(.*II  VPT 
YSUH  VVnRl«tPf 

r(  RMi  - xni  f f •xoir  I •YDH  f «votr  r */voi(T*:vofti 
TERH;!/  miff  «l()(ff  * V%UH*TS(JH*  /VONT*/YOAT 

if  Ar  •»  . Ti  i*  H I * f t Tf  «M|  I 
f(  RH^*S0Rn  Tt 
C 

C CONTflIftUT  1 LN  TC  Orj^'SHA^M  f MOM  LCAOINC-CUCC  VQAtEl 

fM  « ( xorrraoTVGRT'YLiirf  i/ffftMi  * uotrr*DVtfuiif-vsuM)/TEitM4 
00  (<>0  L * 1 .IHM 

c 

c HANCf  iN  OOWNmASH  CCNIAfRUTtON  OUC  10  CHA>iCr  IN  VOATEX  POSITION 
OF  HOY  it  1 • I xnif  F tF  t OAf  I ?*l  1 MUCMCfiVd  l‘TCHf  OY  It  I 

C -3.«  1 xoi  r F •OYvCiHT  - YOt rr  itYOirr  •TCHrfirii  i/tfrhi  )/tern) 

C •< XOIf f •(  L OAT  1 ^*1  - n ♦ OCHf OVlt l-!CHf BYll  ) 

C - !.•  ( I0l»  F •OYVORI  -YSliHI*YSUH*TCHCBYIl  I / 1 1 RH?  | / T T RN4 
nfWO/ltJ«  /V&wt*  TCMfBY(l|A(lXDIFE*OYVlj«T-YD|FF)/ 

C iTfRH|*TfflHn  ♦ (XDnF*0VVCRt-YSUH|/ITf««?*rCRH4M 
lAO  CCNI iNUr 

00  1^0  HO- I ,NOCM 
H HQ-l 

CONST  ■ fLCAr(?YH*n/?.*RI 
CCAH*  SINICO.NSTAXI 


DGwcnn « r 
DC.WUO''  \n 
ocwr.ui)  TO 
ocwcn>74o 
Dr.wr.oo4 1 

0CMC004/ 
0GWC004 ) 
0CWG0044 
0CWC004S 
OGWG004f> 
DGWG004  f 
0GWG0O48 
OGWG0049 
OGW&OOSO 
OGWGOO'yl 
0CWCOO52 
OGWGOO'-  J 
0GWG00S4 
DGWCOOSS 
DGWGOO'.6 
DGWGOn'i  7 
DGwrooss 
DGHGOO' 9 
OCWC0060 
DCWG(^nbl 
DCWG006? 
OGWGOON  ^ 
DCWG00r>4 
DGwr.on65 
0GWG0066 
DGWCOOS  7 
DGHG00G8 
OGWG0069 
DCWG0070 
OCwr.00  71 
0GWG0O7? 


C 

C GGAH  . I f AOIMC  rOGf  VORTFI  STRINGIH 
SUM(H0I  « CGAM«F4*WiJI  •SUKfMOl 

no  i»,o  1*1,1  MAI 

SUM?(MO,l  I » GCAM'OFWOVII  J>  •SUH?(MO,tl 
SllM*.(MO,LJ  • CCAH*l>rWO/U  •SUHAtHO.L) 

ISO  CGNflNUr 
200  CON!  I'.ur 

C DfT(«*MM  MFir.HTiNC  FACTOR 
CONST  • I . 

IF  ( IC.GT,l  J CONST  .S 

no  sno  HO  I ,\ncH 

SUMIMOI  • CONSI*SUH|MOI 

00  400  I • I .(MAX 

SUM2(*'0,LT  • C0NST*SUM?|H0,LI 
SUH4(M'J,lI  • CnNST*SUM4(H0,M 
400  CUNTINUi 
100  COM  INUC 

DO  SCO  UNOCM 

» CONS  T2*SUMIM0» 

00  son  i r I ,lmax 

nGHG-2(HC.l»  • CONST2*SU**2  (H0,l  I 
DGwC»'4{hO,L  I • -J.«  CONST2*SUM4(MO,(  1 

SOO  COM  INUf 
C 

C PRIMARY  OUTPUTS  C ►•GMW I , OChGm?  , (iCWGMS  PASSED  THROUGH 

C ARGUHfNT  LIST  10  CAILINC  P«CC«AM 

RF  TURN 
CNO 


DCwGOn  7 1 
0GWC0074 
OCWG007S 

ocwcno76 
ocwr.oo  7 7 

OGWGOO/0 
DGW  SOO  7 9 
DGmCOOHO 
DCWCOOR I 
OGWGOOH? 
DGWGOOHl 
OCWuOOOA 
DGWGOOPS 
0GWCO0R6 
DCWGOOB  7 
DCWGOO'TB 
DChG00H9 
OChGOO''0 
OGWSOO'i  I 
0GHG0092 
ncwGoo'T  1 

OCWuOP'K. 

DGWoOO'iS 

ncw.so'Y'x, 

OCWCOO'17 

0GWG0098 

DCWG0009 

ocwcoi no 

DChGOIOI 
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t 

I 

I 

I 


su««nuT  r^if  ncwvfoCNTt,ocvjv,o';wTj ,DGvTZ  I 

c 

C DCWV  PftOViDFS  CONTMIPUTIlN  TO  J*COOIAN  fMOM  wAK( 

c 

C A^CL'HrNT  I ISf 

C Or.wTVJ  CHASG«f  tN  CWT  F«CH  C«P*JCf  IN  YV 

C OCvTy:  CHTNGF  r -l  CVt  TBCM  CMA'iCf  IN  YV 

C OGWTT:  CHANCF  IN  CWT  FRCh  .H»siCF  IN  ZV 

C OCVTZ:  CH^NGF  IN  CVT  r«CH  CM*\Cf  IN  ZV 

C 

C FACTOR  OF  flZ^L-ll  OUTSlOF  OF  SUflUCOTINF 
C 

COMHPS  «P|  ,YVnWT  ,S,mdu“.>'P0UH/S€C/IV0RT/CAUS/CI2A  ) *WI24I 
C /»‘ODf  ^/N^'C^.NCSP  /PLAN/CR 

01  Mansion  l ,OCwTTlM,OCVTYI5ltDCWTZI^ )*0CvT2<5) 

c 

c 

r.  INirtAlIZF  SUHNATtON  vARIAfllFS 
DATA  SUH/?0*0.0/ 

c 

C 00  SPANmISC  IMFCRAl  from  0.  TO  s 
DO  zoo  J* 1 ,2^ 

c 

C CALCUlATf  APSCfSSAS  FGR  CAUS-IIAN  QUA0RATUR6 

Yt5»i  1 ,*cijn  /z. 

c 

C CALCUUTF  iNTIH^-tniATf  FACTORS 
01  PYOY«OtDYl Y, YVCOT  I 
OlKYOY»“Ot  Dvr  Y,- WORT  I 
0!POZ«OIOZ (Y.YVOflT  ) 

oiMOZ«oioz  lY,- Fvc*»n 

YOIFF-Y-YVCRT 

Y$UH*YyYVO«T 

irocc  • CRw«n.-CRi/s 

I2Y?  • SOATI*eOCF**2*Y*VI 


DGWVOiT  1 1 

or.wvro '? 

DCHv'^nn ; 

OCWVOO'^A 

oc«vou^*> 

0CWV''''C6 
ocv,’vino7 
OCWv'^OOfl 
OGWVO''.''*) 
PGtavOOl 0 
OGwvnoi  I 

OOwvOOlZ 
OGhvOOI  j 
OGwvOOl  <. 
OGHi/  IOI  5 
0G-vn''i6 
ocwvoot  t 
Ojwvoi  I a 
OGwvn'^n 
DCUVOOZO 

ocwvoo: I 

OGUVO-IZZ 
0GWV002  ^ 
OC^-VO).''. 
DG-v'':'’S 
0G-Y?"‘?6 

OGwvo.v  r 
o&wvn.'^za 
OGwoor*? 

OCWVOO'O 
DCWVOOT  I 
DOwvOC 52 
OCWVOO)> 

DOWV0054 

0GWV0055 
DChVOO  56 


ItOCr«XZY2/SORT( I.ySRSI 
I|p*«  H Y, Y vC«T  I 
*|P-Xl (Y,-YV0PTI 

c 

C DO  FOR  AU  A'nOFS 

00  lOO  KQ. 1 ,nOCM 

cnssT»Pi»rioAT  (2*H«i I/?. 

OOCLT  CONSTyCOS ICON^T*X'nGE» 
y()Cm1y»gd(  I Ml  xtp-xim-yoif rAOlPvOY-ysuMPOiFlyor) 
YOCVT  Y-Gf’Cl  I • 10  IPYOY-OlMyOYI 
VUGxt  Z «Ciif  L T*  I VO  Uf  *01  P0/*YSUH*0IM02I 
VDCVi;  •CJf  I T*  T ZVO-tT  • 10!  POZ-OIMO/MXIP-KIM) 
SUMI^O,  I 1 ' SUM!  MCJ,  I 1 ♦VOG«TY*Wf  J| 
SUN|ho,?MSGM{MO,2MYUCVTY*WTJ» 

SUPI^^O,  5I«  StHJ  HO.  1 MVOCHTZYWT  Jl 
SUHffc-O.A  »•  SUMI  HO,A I •YOGVTZYUI J| 

100  CONTINUt 
200  cnNT|f;Uf 
c 

C CONG!  FROM  s/2.  • l/M.*P|) 

CGNST-S/IH.RPI ) 

DO  300  '"OM.NCCN 
OGWTY  I "Ol  •CONST  ASu^^lMOf  ] ) 

OCVTYI  HOI  • - ZVORT  •C(jNST*SU«IR0,2I 
DGWTZIHOM-caNST*SUH|MO,  31 
orvrziHO) --coNST^suHiMo.^i 
00  500  KM  tA 
SOHMO.KMO.O 
)00  CUMlNlJf 

C 

C RfSUltS  PASSrO  TO  CVCTR  through  RHCUHENT  IIST 
RF  TURN 
ENO 


DGHV005  r 
DGHVC05fl 
OCw.'^-'  19 
0GW/''';-3 
Dili  /' ' *•  I 

DG*.  '‘•2 
DG-/  .‘•5 
OGr^-'  <•«, 
DCwvDC<*5 
DCHVCfi'.G 
OGWVOC'.  T 
DCwY  'Ot.  a 

DGV.V0(»<.9 
DCWVOOSO 
DGWVOOS I 
DGWYOOGZ 
DGWVOOS  5 
DCWVOOS<. 
DGV.'VOOGS 

ncwvonG6 
DGWV00S7 
OGWV09‘*8 
OCWVOOS9 
DGWVOOGO 
OGWVIOGI 
DGMV0062 
OCWVOOA  3 

DCWVOOA^ 

ncwnoGS 

DGWV0OG6 
UGWVOO.,  7 

OGwvoose 

OCWOOC9 

OCWVOOTO 
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sun  rout  fNCiNtcr 

c 

c FNCTN  tV*LU»TfS  CHfBtSMfV  POltHCNUlS 
C 

C IRCU^'fNI  LIST 

c : cn**  rr  1C  If  NTS  cf  polvnchml  spproiinat  ion 

c R:  llRUrfl  01  POIYNCNIAL  *PP«n«  iHAf  ION 

c «:  CHOROwtSI  POINT  Of  INira»SI 

c IN!  VALUl  ni  FUNCTION 

c 

01  HI  NS  I ON  Cf I SI ,CHl "V ( SI 
C USf  CMfOYSHrv  PCIVNQHIAIS  Of  iHf  FIRST  KIND 
CmTBYI I I«i 
CSO 

CHLflvi;i*icso-i.  I** 

KCH.LT.))  go  to  00 
00  60  I I.H 

CHfRYl  I I ‘CSC^CMI  OYU  - I I -CMtttf  lt-/i 

60  CONtlNUr 

C CA-CUL*1I  fUNCriON  f«0«'  POLYNOHUL  CONimBUflONS 
BO  fN*0.0 

00  SOO  I’. .M 

500  f N«f  N«Gf  I I MCHf  BYI  1 I 
RF TURN 
(NO 


FNC  TO^ni 
FNCIOfMU 
FNC 1000  I 
FNC  IOf)r<. 
f NC lOOOS 
FNC 10006 
FNC loor  r 
FNC inoofl 
FNC  IC'>P9 
f NC  fOniO 
FNCTOOI I 
FNCTOOl? 
FNCTOOI ) 
FNCI0016 
FNCTOOIS 
FNC  10016 
FNCTOOI 7 
rur  too*  R 
FNC 1 00 1 9 
FNCT0020 
FNCT002t 
FNCT0022 
FNCT0023 
FNCT002A 
FNCT0025 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUQROUTINC  FUNCTN1N0SM,S»F} 

FUNCTN?  sp4swisr  lOAoiTFr;  Functions 
akouhlnt  list 

NOSNi  NO.  Of  SPANWiSf  MORSTSMOF  VORTt*  NODES 
St  SPANWiSt  COORDINATE;  NCN-0  BY  SEHISPAN 

Ft  vAiLiE  OF  Function 

niHf  NSI09  ?( M 

USE  CHfBYSMfV  PClYNOHIAtS  AS  LOADING  FUNCTIONS 
SO*S*S 

R*SOKT I l.O-SOI 
r ( 1 1 'K 

F (2  I *50  I . 1 

C-^.*SO  2. 

00  20  J*1,NCSM 
20  M J I C«F  IJ-I  ) -r { J -2  I 
Ml lURN 
END 


FUNCOOni 
rUNCOOO? 
FUNCOOOT 
f UNCOOC^ 
FUNCOOrS 
FUMC0006 
FUNC0007 
FUNCOnOB 
FUNC0009 
FU7KOUIO 
FUNCOOl 1 
FUNC0012 
FUNCOOl ) 
FUNCOOIA 
FUNCOOl S 
FUNC0016 
FUNCOOl 7 
FUNCOOl 8 
FUNC0019 
FUNC0020 
FUNC0021 
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su«»inuri*if  c*usio(C»o,fNfci.f  I 

C C*USIO  PF«fOM»‘S  l-i)  INtCv*M*rtON  ev  ?^-P0INI  CAuSSIAM  OUADHAfUftt 

c 

c *RGU»'FNT  UST 

c CJ  lOwfu  OF  INTFOAAt 

C 0:  UPPER  Of  iNTEf.KAt 

C PNTCL:  value  OF  !NTfC«AL 

C F:  rusCTlOM  10  66  iNffGAATCO 

C 

CORDON  /GAU*-/CJ2M.wt?A» 

C 

C INlTULI/r  iU““ATlON  VAAIABL6S 

suH«n .0 
DC'D-C 
OAC-0«C 
DO  ^00  JM 

iSE  W- JOC* :i  J1  ‘DAC i/2 
SUH  ■ su^* F ( XSF W I •W I J f 

200  CC^TINUF 

EsTOL  • 0C«SUM/2. 

RETURN 

END 


CA'J'.no-il 

CAU'iO'i')? 

CAUt,0>‘’n3 

CAUS" 

GAliSOOP? 

CAUSO'^'Jft 

Ciu'^oonr 

CAUSOOOfl 

CAUiOC^O 

CAU';ooio 

CAU'>001  I 

CAUSGOU 

cau^joon 

CA'J^QOl 

CAU^OOIS 

CAUS0016 

CAUSOOl 1 

GAUSOOl 8 

C A u S 0 • j 1 

GAUS0020 

GAUS3321 

CAUS0022 

CAUS00?3 


subroutine  CVCIRINCCPI 

c 

C GVCTR  CALCULATFS  rORCC  ON  VORTfA  AND  CORRESPONDING  DERIVATIVES 
C 

C AflCU^tNI  LIST 

C nccp:  NC.  Of  COUOCAIICN  POINTS 

C 

COWHON/MOut  S/NOC*'.NOSH/vinc/l«Al/GVr»P/GVVORISI,C/VOP|S  > 

c /cvf  c/  A (s,*. » ,cn ^ I .Nt  .rso**visi •rsu»/is)  ,Pi*siNAi  r ,nofp 

C/VORI/YVOU  ,2V(’R/  /XP|  , Y VPR  f , S • “ , '*P  / S*  C/ZVORT 
C /VACOB/XACOn*  3%,  IS) .SA4NIS*S)«SAVW(S  f 5)  t 

C DA  WHY  I 8 ,S  I ,(>AWli;  ( *,,S  » ,OAVOVIS,SI  .OAVOZI  S,S) 

01  HI  NS  I ON  SCVV(S ) * SGUVTS t tOCWDVtSI .DOVOZIS ) t 
COCVOYt  s »,OGVl)Z  ( S ) ,OCwT  YIS)  .CGVTYI  S»  ,OG«TZIS),DCVTZ  |5)  , TCMEBYIS  ), 
cue  HE  A V I S I .DCVGMZ  I S ♦•*)  •0GWGM2IS,S)  •OCVGPAf  SfST.DGvCPAlS  fS  ) 
EXTERNAL  XGNT,  XGV1  •XGl»l  • XCVL 

C 

Nl -Nl • I 

NHOOT«  NOCH*NOSH*NOCH 
C 

C NMOOT  « TOTAL  NG.  Of  VOMTICMY  MODES 
C 

C CALCULAT!  VO'iTrx  LOCATinN  and  derivatives 
call  FNCTMGYVnR  ,l  HAX,XPI,YVO«n 
CALL  FNCTNTCZVHR ,l ha* , xPr.ZvORT I 
CALI  nr NC  T IGYVOR .1  HA* ,*P| .OVVOHII 
CALI  OfNCt (GZVOR ,l MA * , XP | ,D2 VORT I 
C 

C OUTPUT  CnniROl  point  location 

1 TE  I6»910I  XPI  • YVURTvZVOHT 

c 

C CALCULATT  LFAPING  roof  vortex  STRTNCTM  and  OfRtVATlV' 

C CAieiiiAtr  gamma  and  dgamma/ox 

OGAK^■  . 0. 

GAMMA*  0.0 
DU  600  Hg*ltNOCM 


CVCTOO''! 
CvCTn^''? 
CVCTOCO) 
CVCTOO"*. 
CVe  T00r$ 
CVtTO''''*. 
GvCTor:; 
ever  M 
GvCTO"T 
GVCTOOIO 
GVCIOOJ I 
GVCTGOlZ 
GVCIO'*  ! ) 

cvcrooi<. 
cvcT'':is 
GVCTC*'!! 
Gvcr^:i 7 
CYC10:!8 
GYCTGri'? 

eve  Tco;o 

GVCTOOZl 
eve  too;? 
CVCT00Z3 
CVC100?<, 
GVC!0''Z5 
CVCT0r?6 
GVCTC^ZZ 
CVCTO''?fl 
CVf  TO";>'i 
GVC  Tr  MO 
GVCK  Ml 
CVCT003Z 
evr  TOO  M 
eve  TOOW, 
eve  100 
eve  foo  i6 
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I 


N HO  I 

tONM  - M I1A  ! C I I / • . •r  I 
600  0CA**H  ur.A»iM«uOI'<CI*CfiN^T*rOSIC06\f*RPf  I 

c 

C INITIAII/I  SU'^HATION  VARIAQIES 
Ml >0.0 
VI-0.0 

c 

C CAICUIAK  VI. wi  AT  XPI  • YVOMf  •/VOAf 

C 

c cONTRiniiTiQN  nr  irrr  hand  vcmffx  and  wAKf 

C CAlCUlAir  ISTIPHiniAff  FACtORS 
Xt)  I f f I . Hp| 

V^UH  tVOR  •YVCMJ 
ZOIfFr/vQR  /VOAT 

T1 RK^. YSUM*VSUM*;ni Ff •/Off F 
TfRH*.  rrR>'?*ioiiF*AOiFf 
Mfju  is»SCRIiifRR^I 

c 

C CAlCUlATf  Cf-NlRinUTICN  AFT  OF  K • | . 

CWCML?'-Y^UR/T(RR?*1  I .-KOIFF/  R00T6  >/|4.API) 

GVCMl ?*CWCMl?*/OIFF /V^UM 

c 

C CQNIRieuTION  raCM  WING 

CALI  CMVO(  SCVV.SCWV,OCV0Y«OGVOZiOCWDV«DCUO2) 


C 

C CQNTRteuUnN  IRCN  MARC  ANO  LFAOtNC-€OCC  tfORICl  FORWARD  Of  X 
00  A50  MO  1 .NOCM 


M*HO-  1 

N^*  N(’iC«*^CSM»MO 


CALL  CAUSlOt  0.0«S*GUT.ICMTI 

CALI  CAUSIDI  O.O.S.GVr.XCVTI 

CALL  CAUStOl  0.0,  UOiGW.XCwiI 

CALL  GAUStOI  0 .0  , I .0 «GV, XCVL ) 

CONSIC  • FL0ATI2*M*ll/?.*PI 


I . 


GV<  MM  I f 
GVL  m MR 

cvc  in  i »•# 
cvc  ro.v.o 

GWC  in'U  I 
CVCT  ? 
CVC  I*  .1 
CVC lOOAA 
GVC 

GVC  T00A6 
CVCI00A7 
GvciOHAe 
CVCTOOAS 
CVC  TOnso 
CVCTOO'Vl 
CVCI00S2 
CVCTOOS1 

CVC  roosA 
cvc TOO 
CVCT00S6 

cvc  T00'»  1 

CVCIOO'>fl 
CVCT00b<» 
CVCf00/>0 
CVCTOOM 
CVC  TOO 
CVC  TOOfc  ' 
CVC  TOOF.A 

cvcr006!> 
Gvcr0066 
cvc  T006  1 
cvcrooF-e 

CVCT00A9 
cvc TOO  70 
GVCT0071 
CVCT0072 


C 

C SUM  CCNIMIUOT ICNS  TO  vIlOCITY  COIFFICICNTS 
GwV  • SGWV(P0»  ♦ CW*GKGHL?*GMT 
Gw  » SGVVIPQI  • Gy*GVGML2*CVf 
CWCHL2--CUCP12 
CV&M12»-CVCPL7 

TFRMG  • «DCAHM*SINK0NSTG**PII/CAMMA 

C /gamma 
C 


CVCT0071 
CVC TOO 7A 
CVCT007S 
CVC  too  76 
CVCT0077 
CVCTOO70 

-CON.VTG*COSICONSTC*XPI  ) ) CVCIC079 

cvcvoneo 

GVCTOOAl 

SO  CVCTOOH? 

GVC 10001 
CVC  TOOHA 
CVCI00®S 
CVC  10006 
CVC  toon  7 
GVC  TOOrtH 

CVC 10009 

CVC 10090 
CVC loovi 
CVC 10092 
CVCI009  s 
CVCTOO'IA 
CVCT009S 
cvc 10096 
CVCT0097 
CVC 10098 
CVC  TOO  )9 

cvcioioo 

GVCTOIOI 
CVCT0102 
GVCTOIOI 
CVCIOlOA 
CVCIOIUS 
CVC10in6 
CVCTOin? 
CVCT0I06 


C CAICULATI  orwiVAMVCS  W.R.I.  VQRTICITV  COrFriCIfNTS 
XACU®IM,N2)  - GW  ♦ /VORT*ICRMG 

xAconi Ni *\cn',N7 1 • -cvv  -iY;/ORT-s*xPn*rf rmg 
c 

C CALCUlATf  vncCIlY  CCMPOKfNTS 
wi  •GLMMOMCwVtWl 
VI  -GOl  MO)  'OWWl 
no  ASv'  M^*p ' 1 

AhV*' AWWlMCfMPI*) 

AW'SAVhIMCiMPP) 

N2  • MOMmPP  I I •NOCM 
C 

C CALCUIATI  OCKIVATivrS  W.R.I.  MORSrSHOF  VORTICITY  COEFPICIENTSt  A 
lACOtllNl  «N2)  > AWV 
XAC0BINl*.%CrP,N2)  « -AW 
C 

C CALCUIATI  VflOCIlY  A?  V0«TIX 
W1 • W| « A I MO ,MPP )•  AWV 
Vl-Vl*A|MO,MPM»f AVV 
ASO  CONTiNUf 
C 

C CALCULATF  FORCf  COMPCNIMS  IN  Y AND  I UIRfCTinNS 

FV«-  I ID/VORT  -Ml-SlNALrMOCAM“*/VO«T/CAMMA) 

F/*  lOvvOKT  -VI 1 •ocamm*i vvgrt-s*xpi » /gamma 

C 

C OUTPUT  FORCCS 

WR|Tf(6,910)  gamma, VliWl.FV»r2 


V 


J2l  f SU«tJM-\CCP  ) ■ f't 
fSUSnsi-NCCP  » • 

C 

C C*tCUl*TE  OEKlViHVCi  W.P.T.  vG«T€lt  POSITION  COCTPICItNTS 

C 

C CALCULATF  CMC»'VS»^f'V  P0LVNC»*ULS 

CALL  TUCHf  6 (LNA«.  «PI  . TC»«F  8T*UCHf  OVJ 
C 

C CONTRIBUTION  fOC^  Lt*OlNC-!OCt  VOAT£* 

CAU  VOR  1ST  (OvM0“?»DCVCH2.OCw&*'<*.OCvCHAI 

c 

C CONTRIBUTION  FRO''  wAKf 

CALL  nCMV I CCw! Y, CCVTr  .OONf  2 .OCV  TZ  I 
TIRHS«  Tf  R^’^i^wt.GT*. 

TFRVf  I <0  IT  F /RCJTi 

C 

C CONTRIBtTlCN  rflfM  VORTCI  AFT  OF  X -1. 

OCwGl  • I ./!£«“;•(  TfRT*6  • I -I . *2  .•  YSUN*VSUH/T£RN?  I 

C-vSuT'»YSU»'*xniFF/  TfRH5  )/l4.*P|  ) 

OOVGl  «/OIF  r«YSUM/ft'<N2*  ( 2.  /fkKH2*  ftK«6 
C-ifOIFF/  TF«»'5  WI<i.*PI  I 
OCWGT-OCVG. 

DGVG<*1./TFRH?*|  TFRH6  • I - 1 . D If F A/D  I f F/T tRH2 ) 

C-20IFF«xOIFF«/OIFf/IEHMS  |/(4.APn 

C 

C CONTRIPuTION  for  all  hoofs 
on  220  LOIJH-ULHAX 
L-LOUM 

c 

C INITIALIZE  SUVHATICN  variables 
0Hl0CY*O.0 

0vl0Cr«0.0 

OulOCMO.O 

OV10GZ«0«0 

c 

C CALCULATF  contribution  FRON  leadino  vortices  aft  of  wing 


GVL  mm 
cvc  mi  I 0 

CVC  TOl  I I 
CVCTOl  12 
Gvcmi  I 3 
cvc  Toil  A 

CVCTOIIS 

&vcmi!6 
cvc  mi  1 7 
cvc  TOl  I R 
CVCTOl m 
GVCT0120 
CVCTOKM 
cvc  TOl ’2 
CVCT0123 
cvct':i2a 
GVCT'125 
cvc  T :i : ^ 

GVC  mi  2 7 

C V C m r 5 a 

cvc  TO  in 
cvcTci m 

CVCTTl  *l 

cvc  TCI t: 
cvc  T -.1  M 
cvc  TOl  u 
CVCTOl  'S 
CVCTOl 36 

cvc  TOl  T 7 
cvc  roi 36 

CVCTOl 3Q 
CVCTOIAO 
GVCTOIAI 
CVCTOIA? 
CVCT01A3 

CVC  toiaa 


OCWCHI.OGWCMI  I .MCMteviL  » I 
OCVCHI.OCVCMI  u mcmfpyil  » I 
OCWCH  3-OCWC3M I .-TChfeRYI  L M 
0CVCH1-0CVC3* I I .-ICMCBv  < L M 
00  no  MOMiNOCP 
c 

C CALCULATE  CQNTRIBUTICV  FROM  WAKE 
OCwTOY-TCH£PYlLI*OGwrY|KO» 

OGVTOV-TChEQyI L MUCVTyIhO) 

DCWT07-OCW  T/IHOIATCMl  RYU  I 
ocvtoz  •ocvtzit  omtcmlbyi  L > 

c 

C calculate  CCNTRlflUTTCN  FROh  LEAOfNC-tOCE  VORTEX 
DCwCPF*DCmCHI*DGWCH7IHQ,l I 
DGVCNY-DGVGhI *0GVGM21H0,L I 
DCwCH/  ■OCwCN  HOCvOHAlHOfL  I 
0CVCMZ-0CVCH3*DCVCMA|H0,L I 

c 

C CALCULATF  CONTRIBUTION  Tt<ON  WINC 
DSCw()y*UC^^OV  irOI  •"■MEBYI  L I 
OSCvOYmCvOYl-OI  FOYILI 
OSCWOZ-OC^OZIHOI"  LOYILI 
DSGvo/ -ocvd:  iHon  ibyui 
c 

C SUN  CONTHIOUT IONS  fOR  . IVATIVE  COEFFICIFNTS 

OwlOGt  •nv;iOCY»CQlMO.  MOCWTOV*OCWCNY*OSCWOYI 
OVlOCV.OVlOCY»CClH01*IOCVIUY*OSCVUY  ♦OOVCMYI 
0wlDG;>DWIDGZ<C0(NQI«I0CWIO7*DCWGM/«nsCW07  I 
OVIUG/  ^OVI  OC/  mUIHOI*  IDCVr07«OSCVOZ«OCVCM7  ) 

c 

OGWCMI ■-OChCHl 
OCVGHI --OCVCHl 
DCwGM3»-UGvCH,I 
OCVCm  I•-0CVCM \ 

c 

C CONTRIBUTION  FRCH  HOMSESmOE  VORftCtTv 


CVCTOl AS 
CVCT'^p.t 
CVCTOl  7 
CVC  T'^l  *.  S 
CVC  I - 1 1*) 
CVC  Tor-0 
cvcmmi 
CVCT01A2 
cvc TOl S3 
CVC  TomA 
CvC  TOl ss 
CVCT0IS6 
CVCTClS  7 
CVCT0l«6 
cvc  TOIST 
CvCTOlF.O 
CVCTOIM 
CVCT0162 
CVC  TOl S i 
CVC  TOl tA 
CVC  T0I6S 
CVCT01S6 
CVC  TOl A 7 
CVCTOUB 
CVC  TOl S9 
CVC  TOl 70 
CVC  TOl  71 
CVC lOl 72 
CVC  TOl  73 

CVCTOl U 

CVC  TOl  7S 
CVC  lOl TS 
GVCmi  77 
CVC  TOl  7B 
CVCTOl 79 
CVC  TOl HO 
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no  Uf) 

rwirc»  • p*iiO".r  • *C'«rflYit. » 

nviu'.Y  ■ nviDOY  • A vc>‘C.''PPi*rcHf  «viL  > 

Otaioc/  • Chioo/  • * j'‘o,»‘<’P)*nAhn/ JCMf  nvi L » 
oviDc;  ■ nvioc/  ♦ A(HO,Hppi*nAvoziPO*HPPi*iCHCBviL i 
310  CCNt iNUf 

c 

C CAlCUlAff  f flNTIf'*!)!  IC‘*  TO  JACOaUM 

C CaiCUlAX  OY/OCYV  0»//0&YV  OFY/OC/V  Df//DC/V 

Of  yDCy  Ck IOCy 

Of  YOG  / » - (f  LCAT  f n ‘Uf  Hf  OYU  l-owtor.t  I -nCAHH*fCMf  DVIL  )/CAMM4 
0f/0,Y  (K  CAT  I ;»l  - I 1 •i;CMC0Yai-CVlOGT)*OGAMM*TCHFBr(L)  /GAMMA 
Of /0G7  »-  OVIOG/ 

N?  • I •N'^crr 
IAC02(M  i?)  • OfYOCY 
« ACCP(M«'.CfP.fi?  I Of/UCY 
N/*  I HAf *l  *K“ODI 
*ACC0IM%N?1  OFYOC/ 

* ACCa<  N I »M.f  p.  N/  J • Of/OGZ 
220  CONTINUI 

c 

C OUTPUTS  PASSrO  TO  MAIN  P«OC«AM  THRCUGM  CCMMbN  SfATEHtNTS 

910  ( b“at(t;o,*  k - • ,f xi-*»riO-A#sx,* ?vu > 

9 30  fCP**AT{'  ^APMA*‘,tl2.'*»S***'fl***fl^*^*^***^^**»f^^“^*^***^^**» 

I f I 2 . ^ ' r 2 ■ * . £ I / . A I 

R£  TuflN 
£N0 


GVC  TOI a I 
CVCT01M2 
CVC  TOM  T 
CVC  TOMA 
CVC  TOI HS 
CVCT01R6 
CVC  TOM  7 
CVCT0M9 
CVC  I0M9 

CVC  TOI  >0 
cvcToni 

CVCT0M2 
GVCIOINl 
CVCT019<. 
GVCTOMS 
CVC  I0IO6 
CVCTOI'Tf 
CVC  TOI  n 
CVCT0l')9 
CVC  TO/OO 
CVCT0201 
GVCT020? 
CVCr02O3 
CVCT020A 
CVCI0205 
CVCT02*6 
CVCTO/OJ 
CVCT020a 


C 

c 

c 

c 

c 

c 

c 

r 

c 

c 


suns NUT  INF  GwvOISCVV,SCWV«OGvOY,OCVU2,DCWDVtOCwn2  ) 


CALCULATfS  S'.Vte.S'^vw  A*,[j  Im||R  OfPlVATIVfS  f OM  PHO&AAM  V 


AROUMINT  I IS! 

SGvv:  rCi!«|PuTION  10  V FRCM  WiNG 
SG-V:  CCMSIHuT ICN  TO  W VKCH  wing 
DGvCYt  iff.-.'jt  IN  GW  our  10  c»«an:;f 

C'.vC/:  C»‘NGI  IN  cvv  Cut  IQ  C*'ANGt 
OG«Cv:  c»*'Nr,i  |n  G«v  Out  10  ChanC*" 
UGn.  ChANGT  is  CmV  UUt  TO  CHANGF 


VORIIC ITT 
VORIICITY 

OGV 

00/ 

OGV 

OG/ 


COm*':;n  *fT,YPT,S,Wf)U»'.wPnUM  /GAUS/CI?AI«U|?AI  /PLAN/CR 
COMMGN/SrC//PT  />'OUI  S/N0CM,NGSM 

01  PE  VS  I ON  SCVVtS  I .DG-OyIOI  ,OGVOYIM*DGVO/(5I,DCWO/  TM* 

C SOwVISI.I  NTCOIS.M ,SUHIS,6I 
C 

PI-3.IAJSNJ 

C 

C INITUlI/r  GU^'HATION  VAKIAOirs 
DO  10  1-1,0 
OQ  10  J-I,A 
fNTCOI I.JI  -O. 

SUHI  I , j)  -0. 

10  CONI  irjul 
C 

C DIVIO!  hISG  I».Tf  TWO  OfCTION  ARCUT  IPIUS 
«PLUS  » KIM*. 02 
If  («PLUS.CT..9R»  Kf'lUS  • .9« 

If  Iff'lUS.l  T.CHJ  G'J  TO  SO 

c 

C CSTABLISh  LIhMS  fOR  SPAi.hISI  IhirCRATlCN 
CPM  Ml  • S*  ( I . •fPl  NS  » /2. 


OPM  Ml  . S*  ( I . ♦*  PLUS  I /2. 

CPRM2  • S»  n . “fPl  US  I / m . -CR  M2. 1 
DPAIM2  • S*  1 1 .’2  XPIUS  I/M  I .-CP  M2.  I 


cwvnoooi 

Gwvnop'^2 

CwvDOoni 
Gwvuoorx. 
Cwvonnos 
cwvnooo6 
cwvuooo  7 
cwvnoopfl 
cwvporo9 
GHVUOOIO 
GWVUOO 1 I 
CWVDOOl  2 
CWVUOOl I 
CWVOOO  I A 
CWVDOOl  s 
CWVOOOl 6 
CWVUOOl 7 
CWVUOOl 8 
CHV()0C)19 
CWVII0020 
Cwv(i0021 

CWVDOO?? 
Cwvn002  3 
CWVU002A 
CWVUOO.'S 

cwvnou?6 

CWVOOU27 

CWVU0028 

CUVI>0n29 

CwvuOOTO 
CWVUOO 1 1 
CWVf'0tM2 

CWVI.O'I  I I 
GwvuOO  lA 
CWVUOO IS 
CWVOOO )6 
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^0  crNfiNur 
c 

C 00  SU‘«FACf  IN  iwo  24*14  GAUSS 

on  600  tcr.LAr  • 1*2 
c 

C 00  SPANwiif  tNrrr.a.M 
00  ?0P  J « l .24 
IF  { ICnUNT.fO.2  ) CO  TO  30 
IF  ( XPLUS.CF.CRI  CO  TO  25 
20  S»xPLUS*CIJ) 

B • XPLUS 
CO  TO  27 

25  V*  CPR|Hl*CIJI  ♦ OPRI»l 
B • e7iYi 
27  A • A1 IV) 

CO  TO  40 

JO  IF IXPLUS. CF  .CR I CO  TO  J5 
V • S«C(J) 

GO  TO  J7 

35  V • CP«IH?»CIJ)  ♦0PRIM2 
17  A « A5(V) 

n ■ 05iy) 

40  CQNT INUF 

AP  • B-A 
BP*e*A 

c 

C 00  CHORChISF  INTfCRAL 
00  100  I-t  .24 
X« I AP«CI I t «BP)/2  . 

C 

C CALCULATf  iSTfRPeOUTF  QUANTITIES 
X0IFF*I-XPT 

yoiff.y-ypt 
TER»-l«YOIFF*vOIFF«/PT*|PT4*OIFFPlOlFf 
ROOTl-SORT ITeR"! I 
TeAK2«TEMHl«R0Qri 


CWVUOO  T 7 

cwvroo  )0 

OUAORAf UR€S  CwvnCO  W 

CWVL-CO'.O 
CWVOO')4| 
GWV00042 
cwvuonA } 

GWVU0'''44 

cwvnou45 
CWVU0046 
CWVOO''h  7 
CWVD004fl 
CWV00047 
CWVU0D40 
ChvC^OM 
cwv'vo:c2 

CWV-,0''5  J 
OwVl 

c w V : : : ' 5 

C«*vjC^S7 
CWV?3  9 
CWVU004P 
GhvDD-40 
CwvCOOM 

cwvnoo?.2 

GWV 1 
CHvr.0064 
CWV00065 
CWVU0066 
CWYOC'*'*  7 
CWVD0066 
CWVU0069 
CWVUOO  70 
GWVD0071 
CW700072 


TFRMJ  -llOIFF*A*rOIFFPV|  /TtAMJ 

C 

C 00  FOR  all  hoofs 

00  400  HQ.  UNOCH 
H-HQ-I 

GV0RS»CV0RT|H,X,V,SI 
C0fLT--Y*3VCRS 
*cvw»cori  T/r  «M2 

KCww«CVCR5*URHT 

f NrcniH0,4  i.rMcni*»o.4i*xcww  •wii  i/rooti 

FNTCniHOfl  I'FNTCIMHC.I  )*XGVW  PWlI) 

X0GwnYMCCFLT«).*xGww*VC)1FF» /ICRH2 
FNTCOI  HO.'.  I•^NK,OIHO.  5 MX0CW0Y*WC  I I 
iocvovii;vM«YUirF/TFRHi 
FNTCUl  *•0.2  I •INTGO(hO,2  MKOCVDY*Wl  I I 
X0CV07»XCVW*( l.-J,4/PT*2PT  FftRMII 
FNTCUl HQ,  3 )-FNTC0IHQ,  J I *XUCVD/«M( I I 
FN1C0(HQ,6)  - FNTC0IHQ,6)  • Wl MPMOWW/ I ROOT t •TERM U 
400  CONT iNur 
100  cnNTiNUf 

00  300  HO-UMOCH 
DO  300  HC«1.6 

SUHIho.MC  )*SUH(nO,  HC  l«fNTCOIMO,MC  MHIJ»«AP 
FNTCUIHO.MC  IvO.O 
300  coin iNur 
200  CONTINUt 
C 

C SFLECT  PROPFR  HULTIPLVINC  FACTOR 
IF  I ICOUNT  .EO.?l  Cn  TO  130 
IF  I XPLUS.CF.CR)  CO  TO  125 
CONST  • XPLUS 
CO  TO  140 

125  CC'NST  • n.«lPlUS)*ll.-CR)/(CR*ll.'lPLUS)) 

CO  TO  140 

130  COfiST  • 5/18. XPI  ) 

IF  1XPLUS.LT.CR)  CO  10  140 


CWV0007 J 
CWVC03  '4 
CWVOOO  75 
CWVUOO  76 
CWVDOO  77 
CWV0007d 
CwvjOO  79 
CWVOO^ “0 
CWVD0091 
CWVuOO“2 

cwvc’:'®) 

cwvro7^4 

cwv 

C w V J 3 - 6 

cwvc  0-“ 7 
CwVf.CO  9 
CWVU03S9 
CWVDO'^90 
cwvr)009 1 
CWVU0092 
cwvucno J 
CWVD0094 
CWVf)0095 
CWV000*>6 
CWVI'0097 
CWVU0098 
CWVUOO')'! 

CWVUOlOO 

CwVliOIOI 

cwvoor,2 

CWVUOIOI 
CWVOOl 04 
CWVUOIOO 
CWVC0106 
CWV00107 
Cwvuol oa 
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CO'IST  • CCNSr*C«*l  l.-fPLUSI/l 
MO  CONT  (Nur 

on  ^00  »»0«  I ,N0CH 

c 

c CALCuiArr  ccNm inuf tCN  in  m.v  vriocitv  at  vORffx  fron  y|NC  voaticitv 
c WHICH  rctos  ((\ntNC'(ocr  voRticirs 

SCWV(MQI«CCNST*M.«CWJ,4| 

SUHIfOMI  - SCWViMOl 
^lJN(MO,n  . StmiWQ.lt  •CONST 
sew  I HQ  I •-/Pr*SU»*(  HQ.  1 I 

c 

C CAicul  Arr  oroivATivf  s 

or. wot  ( HQ>  «CCNS1  •SUHIHQ.M 
suHiHo.sj  . ncwoYtHoi 
SUHrHQ,?»  . sunrHQ.^MCONSt 
DCVOV (HOI •- J. •/pf  •SUHIMQ»2I 

SUH(HO.U  - SUH(  HQ.  1 1 •CONST 
nevo/(Ho».-  suHCMQ.ii 

SUMCHQ.ftI  - SUH(H0.6I*C0NST 
OCWU/IHQl  • “^.•/Pf•SUH|H0,6' 

^00  CONTlNUr 
600  CONT INUf 

c 

c PA  I MARY  CUfPUT  SCW.SGWv'.UGvOV.OCVO/.OCWOV.OCWOi 

C PASSCD  TQ  CAlLfNC  PAOGAAH  IHAOUCH  ARGUMENT  LIST 

C 

RETURN 

CNO 


CwVuOl  '>0 

cwvMono 
cwvuoi 1 \ 
GWVD0II2 
cwvcni I ) 

CWVUOI I A 
GWVDOl IS 
CWVOOl 16 
CWVOOH  7 
Cwvnoi 18 
GWVD0U9 
GWVOOWO 
GWVU0171 
GWVl)0U2 
CWVOOl 2) 
CWVOOl 2A 
CWVU0I2S 
CWVD0126 
CWVDOI ; 7 
cwvuo(?e 
cwvnoi ?9 
CWVDOl TO 
CWVOOl u 
CWVOOl  \2 
cwvDons 

CWVUOMA 
CWVOOl TS 
CWVDOl T6 


SUOROUTlNf  RTRNl 

KERNOOOl 

c 

KFRN0002 

c 

KERNL:  IVAlUATIon  OF  KERNEL  EUKCTICUS  EROH  STE  ADV  .NON- Pi  ANAR , 

KEHNOOO  ^ 

c 

INCOHPRC SStniF  LIFTING  SURFACE  TMlORV.  REF:  ASHLEY  AND  lANDAML 

KERNOOOA 

c 

KCRNOOns 

COHHCN  /jACCfl/OKOvi  lOl.OKOEItOl.OKVDVflOl.XDWOVISUXOWOZIS). 

KER\00n6 

C XOVOYCSI  /SOWSH/  TKVRI 10) .AVRC A.S.SI .CVAI S) 

KERNOUOT 

C /WUVZ/ARI A.SiS)  .Al  SI S.SI.NiNCfCRISIt 1KR( lOl.XOCf SOSpY*  Zi YMN, 7MZ, 

KERN0008 

C R SOH.  r TA.GAUSXI  10 1 ,PO?.NCP,MP.ft.X.r:. Jl» J2,CSpYHN2»ZMZ2,CSR 

KEKN0009 

c 

KER.NOOlO 

S 00  10  l-l.NCP 

KERNOOl 1 

c 

NON  n Y-Xl  BY  SfHlSPAN 

KERN0012 

XHf -CAUS« 1 1 1*CSR 

KERNOOl J 

XMf 

KERNOOM 

R2  B SOH ♦ 2 

KtRNOOlS 

R-SC'Ht  («2I 

KERN00I6 

C • 1 . 0 • K »'  ’ / « 

KERN0U17 

C-xM{;/|H2»«i 

KERNOOIB 

0 • A , • V.  B • ^ S - R 1 

KE«r.OOl‘) 

E * ? . /-SC-*  • J./P? 

Kt  RNCO.’O 

M »z . /B  S':'<*G«c 

Kl  RNOO.'  1 

F • G / »'  / 7 • M 

KEH'iOT.V 

c 

KE  RNr  .»  S 

c 

CAlCULAIf  rfRGfLS  FOR  S 1 L WA SM , COWNm A SM , AND  DERIVATIVE  iNTCCHALS 

KERNOOJA 

7KVB  1 1 J 

KERNOO.’S 

TKH  1 n . r 

KEHN0076 

0F0Y|||fY*'N*(-?.*r/RS0a*ZM/Z*0*C*l-U*f*Z»*77»l 

KEB*:on’  7 

OKVOYMI*  (2.*YHr?/RS0«  UI*/HZ*H  ♦ 7 H/ • YHNZ  • 1 U*  C*E  ) 

KEWN0028 

10  OKD;in-7H7*i-?.«F /rsch-7.*h*/mz?*o*c*  1 -1 . i » 

KtMGOO.?9 

c 

KFRNOniO 

c 

PRIMARY  OUTPUT  T K VR  , TKR  , DKOY,  |)K  VO  Y , OKDZ 

KERNOn  u 

c 

PASSED  Through  cohhcn  block  to  calling  proghah 

KEHNOOW 

c 

KER.VOOT) 

IS  RETURN 

KERNOO  )A 

END 

KERN001S 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


SUft«ruT  I lE  TUCH'  nn'‘AE,»  , TCMC<it*UCHf  nv  > 
CAtCUlATtS  UW«L-1I  EC«  iO*<«CUT!»»C  VC«INT 

argument  list 

LHAi:  ORUfR  f'E  POl»NDM|Al  APPRCuf  MA  T I ON 

*:  CHORUwlSE  POINT  0»-  INTCRfST 

TCMfPv:  CMf^'v^MEv  POLVNr*»|Ai  Of  fIR'.T  E|ND 

UCHEHy:  CHfUrSMfV  POIVNOMIAL  Cf  SICONO  KIND 

OIHENSION  TCMfPvini.UCHtnYlM 
TCMfnyd  )•» 
ucwtnv I u - 1 . 
cso-A. 

uCMf  nv  j ? ) -cso* i . 

TCMERY I I \ • ICSO-l .!•* 

IF  I IMH  .L  T . 3 » CO  TO  80 
00  60  L«  LHAX 

TCME8VI  L l-CSO*TCHi:OTIL-ll-TCHt0»ll“?l 
ucMcet  I L t •cso*uCMr  Bvi  L-n-uCHf  8vii-?i 
60  CONTINUE 
80  RETURN 
ENO 


lUCHO'^^'l 

ruci’O.To? 
ruCMf''^o  < 
TUCMOO^'A 
TuCHOons 
TuCHOon^ 

TUCHOO*  7 
TUCHOOrS 

tucmo  ■» 

TUCM-'.'^  I 0 

TUCHOOl I 
TUCMOOl 2 
TUCHOOl 3 
TUCMOOI<. 
TUCHOOl S 
TUCH0016 
TUCH50  I 7 
TUCH0018 
TUCM0019 
TUCH0020 
tucho?:i 
TUC^OO?? 
TUCH0C23 


subroutine  VORINT  (0GwCM2,D0VGM?»DCmGN4,0CVCI«A) 

voRino''i 

c 

VOR  10002 

c 

VORINT  CALCUIATES  EFFECT  QP  VORTtI  COf«TR  IBUT  IONS 

DuE  TO  CHANGE 

IN 

VQBIC'  3 

c 

VOMTE«  LOCATION 

VORtO*'^'. 

c 

V0» 

c 

argument  list 

VOa 

c 

0CWCM2:  CHANCE  IN  « CONIRlBUTtON  DUE 

TO  CHANGE 

IN 

GW 

VOR  100^7 

c 

Or.vCM2:  CHANCE  IN  V COMRIfUTICN  DUE 

TO  change 

IN 

GYV 

VOR  lOOTR 

c 

OOWCmat  change  in  N CONTRIBUTION  DUE 

TO  change 

IN 

C2V 

VOR  I0s'’^9 

c 

DGVCM6:  change  In  V CONIRIBUTION  DUE 

10  change 

IN 

G2V 

VOm  iomo 

c 

VOR 1 001 1 

COMMON  xPi  ,ypt,s.Mi)UM,MPouM/src/:Pi  /:Aus/ct2Ni,vM2Ai 

VQR  10312 

C /Cvr,R/GYVORIS1»&/vO«IS»/MCnCS/NCCM,*iOSM/VLnC/lMAX 

VOR  1031 3 

dimension  TCMrnvcii.uCHEByisi.CHreviisi.suMiG, 

5. A), 

VOR 1031  A 

C CC  WGM2  1 S , S 1 r 00VCM2 1 G , M , OGWGM^  I G . G I , 

DGVCMAISt 

G» 

VORI0015 

c f OFwljy  1 S 1 tOFVOYIG  l•UFU(i^  IGI.UFVUZ  < G1 

VOR 10016 

c 

VOR 1031 7 

c 

INITIAll/r  S’JM'^ATION  VARIARLCS 

VQR  10018 

data  sum  /ioo*o,or 

VOR  loniQ 

PI  • I. 1 S 1 59  3 

V0'<  10020 

c 

VOR 1 002 1 

c 

ALL  integrals  Fhi'h  0 TO  1 OONF  IN  1 LOOP 

VQR  10022 

CAlt  ruCHEB  UMA«,XP|,CHf|V| •UCHC6VI 

VOM  1002  3 

c 

VOR I002A 

c 

00  CHOROWlSe  INICGRAL  FROM  0 TO  \ 

VOR 10025 

DO  200  JM  .?N 

VQR  1 0026 

XHClJiM.  1/2. 

VOR 1002  7 

c 

VOR 10020 

c 

CALCULATE  ARGUMEMS 

VOR  10029 

call  TuCHtn  (1  HAx.i,iCMCfty,uctifeyi 

VOR  too  10 

c 

VJM  10’  u 

c 

CALCULATE  VORTEX  IOC  A HON 

VOR 10032 

CALL  r NCT  . IGY VQM  .1  MAX.x.WORlI 

VORIOO J3 

call  FNCt*. ic/v;;'.i  ^ vutt  i 

VQilOOlA 

CALL  DFNCT(GyvO»,l*iA<,X,OyVLHT» 

VOH  100  35 

CALL  Of NCT IG/VOP ,lMA<,X,nEVCRT I 

VOR  100  36 
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c c*icuiA!r  fACiafti 

» n I F f • ■ • jiiM 

vsu''»vviiRr  •vpf 

/D  t FF  ^/V3w  T -/"T 

TFR**!  iO!rr*«jjfr*YS!'H*YSUM*/0|Fr*/OIFf 

Tt  fi  K?  r Tf  M-  1 « -.tM  T I f J flMl) 

rr«»'?»n  hmi 

00  1*0  I ■ I , L MA  ¥ 

CHffiS- ICmC  Py (l  » ‘CMf pv 1 IL  » 

CHlDDMCMrnYUJ-CHfHYlU) 

c 

C C'LCUl ATf  INTr&RAKnS 

or  taDY  < L ) * I Jf0irF*fLn4f(?*L-U*UCMr«VlLl-CMr«S-J.*l*01FF#DVV0RT- 

CY'UH)*YSU^*CHf GS/f £MH1  l/rf RH2 
OIVOYlLl»l/OirF  - ¥0  I f F^O/VORTl  • V SUK*CM'‘ 6S/ T CRK  ) 

OF  fc.0/ ( L ) » I «Otf F«Cy  V0«T -VSUMJ*/Dirf ♦CHf  RO/rCft«  1 
cr  VOM  L ) • I ChF  2D*  xo  If  r •f  lOAT  (?*L  - U •UChEOY  I L I- J.  • UD  t FF-XDIFF 
C«J2vCflTl*/0|fF*Ci  aO/T£H«li/ffRH2 
1*0  CPNMNUt 

c 

c OG  FOR  *u  WOOES 

00  no  MC-  I .NOC** 

N T NQ  - 1 

CONST. fL0*T(2«WM  1/2. •PI 
CCAW.^ISICCNST^X  J 

c 

C GCi-  - LfADlNC-fOOC  VORTEX  STRCnCTM 
00  no  L - I ,IWAX 

SUWi  •'O.L  .1  I WC  .L  . 1 ^♦CCRW•f)FhOt  U ••WIJ* 

SuwiHO.l , 2 I -SOW! wo,L.2  nCCAW^or  vot a » ♦WC Jl 

SUW|  WC,L  , ^ » ‘SUWI  WQ.I.,  n •C&AW*OrwOZ  IL  I •wlJI 

sumifo,l«a  nsuHi  ho.l.*mccak*ofvdz<l»*wij» 

no  CONTlSUf 
200  CCJNTiNUf 

CONST. 1. /I «.*P| J 


VCM  IT)  W 
vnu  :n<)  n 
vQm I no  iq 
vnnioo'iO 

VORIOO'.  I 

VOH 100*2 
voR ion*  1 
vn« lon** 
von  lon/n 
VOR ion** 
VOR  100*  r 

VOR 100*8 
VOR 100*0 
VOR  lOUSO 
VOR  1 00'' I 
VOR  I00'.2 
VORfOJSi 
VOR  100*)* 

VOH  ion*s 

VOR  1 00 '■.6 
VORIOO'- 1 
VOH  100*0 
VOR  I0n*9 
VOR  10060 

von  10061 

VOR  I0''t2 
von  1001  ) 
VORIOO** 
VOR  ic:*s 
VOR 100*6 
VOR 100*  7 
VOR  10060 
VOR I 006 9 
VOR  100/0 
VORlOO/l 
VORI0072 


c 

C MULTIoly  SUWWATIOnS  IP«DOPR|AfC  CONSTANTS 

00  }oo  ‘•g  I fNGcw 

00  300 

ocw':w2i»*g,L  I •SLiw no.i ♦ I » •const 

0&VC^2 I ►C.L  »• j.*  SUH ( WO.L  *2  nCONST 
I rg,  L J • - 3.  •sum  “O.L  . 3I*C0NST 
OCv:*"*  (wg,t.»»-SUP|w0.l.  .*  I •CONST 
DO  3C0  ^*1 ,* 

SUN  ; wQ,  L .X.  I .0.0 
300  CONTIf.UF 
C 

C PRIMARY  OUTPUTS  0SmG«2 . OCVGH? . OC«CN* , OCV&M* 

C PASSED  THROUGH  ARQUHENT  LIST  TO  CALLING  PROGRAM 

C 

RE  TURN 
C NO 


VORIOO  / ) 
VOR  too/* 
VORIOO /S 
VQH 100/6 

von  100// 

VOR  100/0 
VOR 100/9 
VOR  I OOmO 
VOR  tOOHl 
VOR lOOR? 
VOR  lOOH  3 
VOR lOOR* 

VOR  I00*1S 
VOR  I00R6 
VOR lOOR/ 

VOR loona 

VOR 10089 
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^U«OOUT|Nf  «OVll I WOV 

C Wt)V 

c WOV  CALCULAtrs  v»icctTv  inriufNCf  cocrPicUNTs  on  vo<^tpj(  r«OM  wo^ 

C MCBSfSMOF  vr»TIC!TV  wnv 

C WOV 

C AMCUHfNT  L 1ST  WOV 

C L:  no.  nr  FORCE  PCtNf  WOV 

C WOV 

01 MF. NS  I ON  SI  <• » . w u I ,r  I s»,Yrwnvtf  ,s,5)  ,TCwn;  i4,s,s) , tovori  5.  s » wov 

COMMON  /SOmSH/  TK  vh  I 10  I .AVrfU.S.'*!  .CVR  I S I WOV 

COMMON  /jACcr'/nvcYi  ioi,u*'onin» .dkvovi  loi .xdwoyis » • wov 

C «nw07  I S I , icvovt I , /GAUN/CM  lO.lOl  .WNIIO.  lOI  7M  JOCSrNOCM.NOSN  WOV 

C /WOV?/Afll  4,S.M  , MSI  '-.SJ.NINC.CRI  SI,  TWRI  I0»*«0C.S&S.Y,7,YMN./MZ,  WOV 

C «SG«  . F T A.  CAUSH  101  .PG?.‘;CP,MP,s,»r  ,G7  . Jl  • J2  . GS  . Y“N2 , 7M  / 2 ,C  SR  WOV 

C /WOvW  JS.MlAi  /vACOn/*ACCRI35.)5),SAkMlS.SI,SAVWI5»9l.  WOV 

C OAUOY ( S .5 1 .0Awn7 I S,S  1 «DAVOYI5,)),OAV07 IS.GI  /PLAN/CINAX  WOV 

C WOV 

DATA  sni,siAi,wni/  •i.,o.it./  wov 

C WOV 

C S ■l^FT-HANn  LIMIT  OF  iNTfPVAL  WOV 

C w ■IFNCTH  nr  INTfBVAL  WOV 

P07M.S70.  161  WOV 

C WOV 

C TRANSFCR-^  NON-C  Rv  CHORD  TO  NON-0  iY  SCHfCHORO  WOV 

i*-|.*?,«xCC  WOV 

Y-sns  wDv 

/M/./  wov 

C wov 

C Y • VORTFK  SPANWiSf  position;  KQN-0  ®V  SfMiSPAN  wov 

C 7M7  • VQRTfA  VfRTICAL  POSITION;  NON-0  SV  SEMtSPAN  WOv 

C WOV 

C CMFCR  IF  POINT  IS  CLOSE  TO  WINC  TIP  WOV 

|FISOS«fTA,LT.l.  I CO  TO  SO  WOV 

ETAtl.-SOS  WOV 

C NO  seCION  7 WQV 

NII2J«0  WOV 


30  CONI INUE  WOV 

C WOV 

C CHFCA  IF  POINT  IS  CLOSE  TO  CENTER  LINE  WOV 

IFISrS-tTA.CT.O.Ol  on  TO  AO  WOV 

ETA-SOS  WOV 

C NO  RFCICN  A WOV 

NiiAi«o  wnv 

AO  5l?)«S0S*rTA  wov 

c wov 

C OUTPUT  inCAIlnN  OF  CONTROL  POINT  ANO  OTHER  INFO  WOV 

WR|  TM6.VI0)  L.vCC.SOSfETA.NIUl.NI  tAI,X,7  wOv 

w( ? 1 - I .0- 1 1 7 1 WOV 

WlA)«SCS-fTA  WOV 

siii'SOS-rTA  WOV 

W|  1 |•?.♦l:TA  wov 

C WDV 

C INiTIALWr  SUMMATION  VARfASlCS  wOV 

DO  A I I • I . JS  WOV 

DO  A|  fU  M .NOCM  WCV 

DO  A I N7»l,N0SM  wOV 

AR ( I . Nt ,N2 1*0.0  WOV 

AVRI  I ,N1  WOV 

YOWDY ( I ,Nl ,N7 1 *0.0  WOV 

Y0WD7 ( I tNl .N7 I *0.0  WOV 

YOVOVI I ,Nl ,N?l*0.0  WOV 

Al  CONTINUf  WOV 

C WOV 

C DO  INTEGRALS  OVER  FOUR  SPANWtSE  REGIONS  WOV 

DO  SOO  IMiJS  WOV 

Al  I NS|P*NII 1 I WOV 

C WOV 

C NSIP  -NO.  or  INTrCRAl  POINTS  wov 

iriNSIP.CO.O)  CO  TO  soo  wov 

C wov 

C DO  SPANWISF  INTFGWAL  WOV 

00  90  J» I ,NSIP  WOV 
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Cr-i 
O-v  7 
000  3 
O'lr  A 

coos 

0006 

0 1''  t 
on-'B 
ooo*? 
0010 

001  1 
0017 
001  ) 
001  A 

001  s 
0016 
001  7 
0010 

0010 

oo?o 

0071 
0077 
0J7  J 
0C7A 
0075 
007  6 
007  7 
0070 
007<J 
0010 

0011 
00  37 
00  13 
OOIA 

0015 

0016 


001  7 
0''18 
O' 

OOAO 
OOAl 
00A7 
OOA3 
OOAA 
OOAS 
00A6 
00a  7 
O'^AS 

0!'A'» 
(?"»  0 
C"  ' I 
0'7 
n:*  ) 
009s 
00  >5 
00'-6 

005  7 

oosa 

0059 

0060 
OCM 

006  7 
006) 
006A 
OOC5 
0'  66 
0''67 
0068 
0069 
00  70 
0071 
0017 


Gs-sci  I - 1 r.Nij.Ns  I"  i i .0)/?.*u(  I » 

c 

C CNfJ.N^IP)  <JTH  ABSCISSA  OF  lIGINOIkt'CAUSS  QUADRATURE  Of  ORDER  NSIP 
CY-GS 
YNK  T ' GY 

»YPS*yK>i 

/H/?. 

mT>wMJ.SMP|«  wet  I /I  2.  *R  SCR  I 

C 

C WNIJ.NSIPI  aJfH  WTG.  FUNCTION  Of  iCGCNORf'CAUSS  QUADRATURE 
C 

C fAUUlATf  SPANWIST  VCRTICirt  HOOf 
C*U  rUNCINiNOSMtCS.f  I 
C 

C DO  CMOHOwlSf  INTTGRAL 
CAll  CHOWS 
on  AS  »*  > i .Noew 
UO  AS  NSf  UNClS** 

AfitI,»',NSf  »•A«I  l.’A.NSf  l•CRI•A>•r!NSf  I^WT 
AVR  I I , H,N<,f  » AV4  I I , W.NSf  I ‘CVR  IM  lAf  iNSf  I •WT 
YOWOY  I I .M,  NSf  I ‘YDw.;y  ( 1 , M.NSf  t •*CwOY  IP  l^f  INSf  I AwT 
YDWO/  I I .H.NSf  » YOWD/  I I .H.NSf  »*XOkO/I*'I*FINSF  )*WT 
YOVUT ( I ««, NSf  I ■YOVOVe  I , H.NSf  > • KOVDY I W I •f | N Sf I •«? 

C 

C ARfAVR.nC.  ARC  SUMfACC  INTEGRALS 
AS  COMINUr 
so  COMINUf 
500  CCNTINUf 

c 

C IN!T|ALI/I  Suwwation  VARIteiFS 
00  60  I- 1 ,NCCw 
00  60  JM.NCS« 

SAiiWl  I , J)  «0« 

SAvmII.JI  «0. 

OAWOYl  |,Jt  «C. 


MOV 

00 1 i 

WOY 

0 ' TA 

wnv 

on  TS 

wov 

00  fb 

wcv 

00/7 

wov 

00  70 

wov 

00  in 

wov 

OORO 

wov 

0^0  1 

wov 

oni)2 

wov 

OOH  J 

wov 

OO0A 

wov 

OORS 

wov 

00R6 

wov 

000  7 

wov 

0000 

wov 

00*19 

wov 

0090 

wov 

omi 

wov 

009? 

wov 

0095 

wov 

009A 

wov 

00'’5 

wov 

009  6 

wov 

009  7 

wov 

0098 

wov 

0099 

wcv 

oloo 

wov 

oim 

wov 

010? 

wov 

otoi 

wov 

OlOA 

wov 

0105 

wov 

0106 

wov 

0107 

t/OY 

OIOS 

0AW07 1 I *J) 

■0. 

WOV 

0109 

OAVOYi I ,J1 

• 0. 

WQV 

0110 

60 

COM  1 Nur 

WOV 

0111 

C 

WOV 

oil? 

c 

SUP 

1 OVfR  All  iNTICRATIOfl  RtGIONS 

WQV 

01  1 3 

UO  70  11 

,N(,Cm 

WOV 

01  lA 

00  70  J 1 

,Nrs9 

WOV 

0115 

OC)  6 5 HS- 

l.JS 

wov 

01  16 

sawn!  I , JI  • 

Samw 1 1 , J 1 ♦ 

ARtRS.I.JI 

wov 

oil  7 

SAVWl 1 » J)  • 

SAVV.  1 1 , JI  • 

AVRINS.I.JI 

wov 

0110 

OAWl'  / 1 1 , J 1 

• DAWC/ 1 I , JI 

* YDWD?  IMS,  1,  J ^•?.•CSR/CA0I4X 

wov 

0119 

G*.v.OY  1 1 , J 1 

• 1 AkCYl  1 . JI 

♦ YL'kUYiMSt  l,J)*?-*CSR/Cx*lA* 

wov 

01  ?0 

UAVDYl 1 tJ) 

* UAVUY  U , JI 

♦ VOVUY|MS,l,  J>*?.*CSK/CXMAX 

wov 

01  ?1 

65 

CONI INUI 

wov 

01?? 

I I . J 1 

- OAWCYI 1 , JI 

wOv 

01  ? i 

70 

CONT  |7iUf 

wov 

01  ?A 

c 

wov 

01  ?5 

c 

RCS 

UL  TS  ami  PASS!  0 THlQU&tl 

COMMON  SIAIEMffiT 

wnv 

Ol?6 

C 

wov 

01?  7 

.9  10 

fCM^AT ( IM0» 

*COl  1 CCA!  ION 

Pl.*,|A,3I,»KOC-*,r7.A,3*,»  SOS"* .r  7. A , 3X, 

WOV 

Cl  ?0 

CU  TA-  • ,f  7.A 

,31. 'M  {?!•* 

. l3,3*,*NIIA»»»,|),3*,»X**,F7.A,3X,*?-‘, 

wOv 

0l?9 

Cf  7.AI 

wov 

01  TO 

RETURN 

wov 

01)1 

END 

wov 

01  )? 
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SUBHOUTtSf  W<»OMl4,CO#NOC<*.ALrtJ 
C 

C M^ow  CALCULATES  COwKwASM  ANO  MOvtOf-S  CONTRlflUTION  TO  JACOBIAN 
C 

C ABCU^FNT  L 1ST 

C A:  COCfrjcrFNIS  EGA  HClSfSM^f  VOATT*  HOOES 

C CO:  COFrFtClFMTS  If  101 N'*. -f  OSf  VC?Tlt*  NODES 

C NOCP:  NO.  or  CCLIOCATICN  f*&INTS 

c AlfA:  ANGIE  Of  ATfACK  IlN  HAillANSI 

C 

EXTERNAL  XGWT 

D I HE  NS  I ON  XPT(Sl.fPTTS).  AIS«5T«GCtSI 

C •CwCHwl(S},DGwGP;(S,S),DCwCMAIS.S)*ni»OCV(S)iDwOCZ(S) 

COHnmN  xP|  , yr*  j 'CTVOMI  S I #0?  vom  S ) /SFC/  EPT/PL  an/cr 

C /HOUt S/NnCH.NCSN  /CCNTfi?/J1.  JA  /VLCC/LHAK  / V AC CB/ * AGO B C 15 » 1 S J , 

C SAWW(S,SI,SAVW(  5,5  » •OAwOvfS.SUCAMO/  15.5)  •OAVOV<  5 t5),  DAVOZ  (5«5) 
CO“«ON  /CwPOW/  NC0«0,NSPAN,C0fFfl25,25J*GWWlZ5,5).Vftl25) 

C 

P|*l. lAlSTS 
SINALF  - SlN(ALfA) 

C 

C FOR  POINTS  ON  ufNG,  Z • 0. 

ZPT-O. 

NCOR02*NCnR0*l 

irtjj.cc.n  NCfjRO?-NCORO 
c 

NHQO»NOSM*NCCM 
NKOOf  •N*«00«NOCH 

C 

C NMOO  ■ NO,  Of  horseshoe  VORTC*  NODES 
C NNOOT  • total  NO.  Of  VORTICfIt  NODES 
C 

C CALCUlAff  location  Of  COLLOCATION  POINTS 
CALL  CCLPT INCORO«NSPAN.  IPT.TPTI 
If (Jl.EO.l I CO  TO  100 

KPT|NCOROr»«CXPT|NCORDH*PTINCORD-lH/2. 


100  continue 

C 

C CALCULATt  LOCATICN  Of  VORTEX  AT  X • I, 

CALL  f NCTMCtVOR.LMAX.UtWCRI 
CALL  FNCT'MOZVOR,LMAX,|,,ZVCR» 

C 

C calculate  OOW.hASH  residue  AT  CCLIOCATION  POINTS 
DO  NOO  I • I .NCORO? 

00  AGO  J*  I ,AS»’An 

C calculate  FIRST  INCH  FOR  NATRICES,  N| 

Nl»JMI-n*NSPAN 
IF  INl.GT,:iOCPl  GO  TO  AGO 

XPI  -(  IXLC  ( 1 .YPT  I JIMl  .1/2,  ♦ eilfVPTIJMRXPKinRCR 

rPJ-YPIlJMS 

C 

C CMOROWISF  POINT;  NON-U  BV  MAXiMUH  IINGTH 

C VPJ:  SPANwISF  POINT;  NON-0  BV  NAXIPUM  lENCTH 

C 

C fORN  INTfMMfUlATE  FACTORS 
VOirf«VVCH  -VPJ 
VSUN'VVOR  IVPJ  , 

XOIff»l.-«P| 

VD|FSO*V(I|ff  •vOIff 
VSUNSO*VSU‘'*VSU'< 

ZSO-ZVOR  A/VOR 

TfRNl-VOIf  SCWSO 
TtRH2.YSUMSC*ZS0 
TERMIMFKMI*  XOIffRXOIff 
TER HA  'rHP2«XU|Fr«IOfff 

TERHS  - SCRTMEMPII 
TERHt,  • SURTniRKAI 

C 

C CALCUIAIE  CONTR ICUTI CNS  FKOH  LEADINO-CflCf  VORTICES  T OF  X • I . 
CWCMW2»-I  YOIF  F /iERNlRI  U'XDH  r /If  HH51 

l#VSUM/TERN?*n  .-XOIff  / TfRHN  M/I  A.RPH 

DCWGMl-  - 1 .Rll  1 1 .-Z.RVUff SO/TrRM|l*| I .-xnirr /TL hM5  t 
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Hr'U/.o''02 

} 

WP'jwO'^f'A 
WP0»‘)^‘>5 
WPDWO'^GA 
wPf>v.no')T 
WPDU00T8 
WP0vt0109 
WPOwOOlO 
wporOOI I 
WPQhOIIZ 
WPOhOOl  ) 
HPDWOOIA 
WPOwOOl 5 
HPD..011  f» 
WPOWOCl f 
WPU-0018 

wpdnooir 

WPOWOO/O 

WP|jw^?’l 

nPO-^ 
k(  p c - : ; ) 


hP:-* 

WPr  ► - - 

wPUhC::e 
NPOwGr^rg 
WPO-'^C  K 
WPDMOO  31 
wpnwooTZ 

WPDkCO  T 3 
WPDL'OO  3A 
WPOW0035 
WPOW0036 


WPDWOOY? 

WPOv.'  ' »8 

WPDwO'> 

WPOv^OTAO 

WPDk.OOAl 

HPQmOOa? 

WPOROOA 1 

WPDwOOAA 

WPO><OOa5 

WPDhOCA6 

WPDWOOA  7 

wPOwooAa 
WPOWOOA  T 
WPDV/OnSQ 
WPDwOQSl 
WPU»  O''* *'2 
WPDWO^N  3 
wpnwoo'''A 
WPuvvOCSS 
WP0^;0')S6 
wPONono  7 
WPOWOOS8 
wPOhOnsq 
HPOwnnf.o 
WPDV.03M 
WPDwO  1A2 
WPD».0GN  3 
WPD*^006A 
WPD».0'>'  5 
WPOr."  )N6 
WPnv  OO'i  1 
WP;)w006  9 
WPOv-f'^'S'l 

wpn«oo/o 
WPUf.00  71 
WPD-00  7? 


C - 'v  suh'  0 / f f > 

C •»!.  » /Mf  * fr  •4*'M  W ff  HH?  »/ I n 

OGw^.H^  . / v«<'‘ • I » .» 1 1 1 / ir  • I <«)li » /ii f «"  »•  I f » 

C “^ . / T(  HNi  ♦ 1 1 . tr.ntft  frftr<siM  • Tf«M<i 

C •T(mm6I  ? . / 1 1 • 1 1 . - an  if  r / 1 fr  i )/ 1 •Pii 

c 

C CAlCUtATC  COST  P iriUTI  f'iS  fMOH  ir«OlNC-FOC(  VOMTICtS  FORMARO  OF  R>l. 

C All  DCwr.H  ( cr,wGH?.ur.wCK4tCwcnwi  > 

c 

C INITIAll/E  SU**r*ATIC'4  VARIABltS 
00  VO  I 1 M .LHAI 
OwOCYILt)  • 0. 

owDc; 111)  • 0. 

320  CONT INUF 
C 

00  ASO  HO* I •HOCH 
H.HQ-I 
C 

C CAlCULATf  CONTPIBUrirNS  to  OnwNliASM  COtFFlCifNr  from  wake 
CALL  CAUSlOt  0.'3t^*Gwf,KCwf  ) 

c 

C CAlCULATf  nnWitaASM  l^ftU^NCf  CGtffICItNTS 

coc  M ( M « s^rn«Hc  vcwwi  m •hci«cwt»gwcnw?*cwcnwi  ino) 

ChCH-2  t.«CwC-«2 

c 

C CAlCUlATf  Of«lVAt|VfS  fC«  JACOBIAN 
00  3Jn  L I 1 .L-Aa 

OMOOY((ll  • nwDGvftn  • GO(HO)*(OCwCH?|HOfLn«  OGuGMn 
Okio:/(Lii  • u^3c/(Ln  « CQiHOMioGwcH^iHOtin  • ocwgm)) 

3 30  C'  M I ‘.jr 
OGW0*'l« 

0CWG»'3* 

ASO  CCNT  r.uf 

00  430  L I- I .1 HAK 

XACC6I  N1  .NHCOT  *L  1 ) • UwUCvUl) 

XACOBI  SI  «Nf‘OOI  «LHAX«t  1 ) • OWOG/Illl 


WPDWO^  r \ 

WPl)WU.V<. 
wPiibOt,  f% 
UPttbOO  Ih 
on  f t 
WPuuOl)  I rt 
wpdmoo  tn 
WPOWOO-*0 
WPO-onni 
WPObOOR? 
wpowoon  3 
WPOW0084 
wpohco«5 
WPOWnOR6 
WPOwOORt 
WPDwOOtB 
WPDWOOR<) 
WPDWOO‘^0 
WPOnOOOI 
WPOWO0O2 
WPOWOOO  3 
WPOWOOOA 
WPOWOOOS 
WP[)W00*)6 
WPUhOOO  7 
WPOwOOOfl 
WPDUOOO') 
WPOWOlOO 
WPDWOIOI 
WPDWOlO? 

wppwomi 

WP0W0I04 

wpowoir^ 

WP0K010& 

wPDwoio; 

WPDWOIOB 


450 

CUNttMUf 

WPDWOI09 

400 

CONTI  fiue 

WPOhOMO 

If (J4.SI . 1 ) CO  to  SIO 

WPOWOl t I 

ro  500  1 * 1 ♦Nocp 

WPOWOl I 7 

c 

HPObCl 1 3 

c 

output  or.WNWA<M  INfLUfNCf  COEffICIfNIS  t IF  OfSIRtO 

WPOWOl 1 4 

bHIIf  (n.SflO)  (COtf  f { 1 , JI,J* l.NHCOT) 

WPOWOl 1 5 

^00 

CONT INul 

WPOKOl 1 5 

MO 

CONT INut 

WPOWOl 1 I 

c 

WPDWOI I 8 

c 

CALCUlATt  «rsicil  fRCM  tCi4NW&SH  CONOM  ION 

WPDwOl 1 S 

DO  140  1*1 ,NOCP 

WPDwOl 70 

SiVALf 

WPOWOI71 

00  14-5  J *1  .SUCH 

WPOWOl 77 

VRCii  • cnt  f F . 1 .NMon*  JMGOIJI 

WPUW017  3 

IICCH  ( ,N»  CO*  J 1 • cotf  r 1 1 ♦SHOD*  J I 

WPOwOl 74 

00  14-'  K 1 ,F.OSH 

WP0W0175 

N2*  JtNCC'^*  1 K-  1 1 

WPOWOl 76 

voni  ■ V^lin*  CC‘’f  r ( ! ,N2t*A|  J,K) 

WPOwCl  ' 7 

XACChl  1 ,07  » C.ntT  t 1 1 .071 

WPP  •..■01  7.3 

140 

CONI iNUf 

WPOwOl 79 

c 

WPObOl 30 

c 

output  MtSIOUf  tPdH  OOWNWASM  COKDIIION 

WPOWOI 31 

MHtrU6,N30}  1 V»  M I , t • IfNUCPI 

WPUWOl 37 

c 

WPDWOl  3 3 

c 

PPIMARV  CUIPUT’-  VH.XACOH  PASSED  10  CAILINC  PKUCRAH 

WPUnOl  34 

c 

THRCUr.H  COUPON 

WPOWOl 35 

c 

WPUWOl 36 

9 30 

rriRMATI*  DCkNMASH  r,N  WINC*/I5f  t4.Si  1 

WPOwOl 37 

940 

fORMAII'  CCLlUCAtlUN  POlUf  *,I3*7H2-4,3K,U0CAL  X-», 

, F12,4) 

WPOwOl 38 

9B0 

FORMAT  nor  13.  SI 

WPDWOl 39 

Rf lURN 

WP0W0140 

FNO 

WPDH014  1 
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SYKflOLS 


a vorticity  coefficient 

AR  aspect  ratio 

c chord 

normal  force  coefficient 
Cp  pressure  coefficient 

F force  on  right-hand  vortex 

i unit  vector  in  x-direction 

j unit  vector  in  y-direction 

K kernel  function  for  surface  integral 

k unit  vector  in  z-direction 

1 dummy  index 

m dummy  index 

n dutnny  index 

q dummy  index 

r radius  vector  from  origin 

S surface  of  integration 

s semi  span 

t thickness 

U free  stream  velocity 

u perturbation  velocity  in  x-directlon 

V perturbation  in  y-directlon;  vector  v is  total  perturbation 

velocity 

w perturbation  velocity  In  z-direction 

x chordwise  coordinate 

y spanwise  coordinate;  with  subscript  v,  represents  leading-edge 

vortex  spanwise  location 

z vertical  coordinate;  with  subscript  v,  represents  leading-edge 

vortex  vertical  location 
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SYMBOLS  (cont'd.) 


angle  of  attack 
leading-edge  vortex  strength 

spanwise  vorticity  component;  vector  y is  total  vorticity 

chordwise  vorticity  component 

spanwise  coordinate  nondimensional ized  by  semispan 

chordwise  azimuthal  coordinate 

leading-edge  sweep  angle 

complex  plane 
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